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PREFACE 



The purpose of this document is to present the 
acceptable forms of the HAL/S language in terms of a 
compendium of syntax diagrams. The. diagrams and a conden- 
sation of syntax rules have been abstracted from the HAL/S 
Language Specification, while a larger set of examples has 
been included to illustrate the use of HAL/S. 

The organization of this document f ollpws the HAL/S 
Language Specification format exactly from Section 2 through 
Section 10 to allow easier reference. Section 1 provides an 
overview of the HAL/S language, Section 2 explains the manner 
in which the syntax diagrams may be read, and includes other 
format information such as the accepted character set, etc. 
Sections 3 through 10 present the HAL/S syntax as well as 
illustrative examples. A series of appendices are included 
which list keywords, built-in functions, and conversion 
functions, and summarizes several classes of HAL/S operations. 
Additionally, a more complex demonstration program is 
provided. 

It is hoped that this document will serve as a refer- 
ence for the HAL/S student, and an interim handbook until 
publication of the HAL/S Programmers Reference Manual. 
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1.0 BRIEF DESCRIPTION OF HAL/S 



HAL/S is a programming language developed by 
In-ermetrics, Inc. for the Space Shuttle. It is intended 
tc satisfy the requirements for both on-board and support 
scfrware. The language contains features which provide for 
real-time control, vector-matrix and array data handling, 
ar.d bit and character string manipulations. 

1 . 1 Source Input/Source Listing 

A singular feature of HAL is that it accepts and lists 
source code in a multi-line format, corresponding to the 
natural notation of ordinary algebra. An equation which 
involves exponents and subscripts will be written, for example,. 



as 



2 2 3/2 
G = $ A + Y B ) 
I J K 



instead of (as in FORTRAN or PL/I) 

C(I) = (X*A(J)**2+Y*B(K)**2)**(3./2) 

HAL also permits an optional single-line input format; its 
construction is similar to FORTRAN, with some minor Changes; 
thus 

C$1 = (X A$J**2+Y B$K**2)**3/2 

HAL/S source code may be input on cards or by data 
terminal. The input stream is free-form in that, for the most 
part, card or carriage, column locations have no meaning; 
statements areXseparatedzs imply .by^semi-colons>. 

In an effort to increase program reliability and promote 
HAL/S as a more direct communications medium between specif ica- 
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tions and code, the HAL/S program listing is annotated with 
special marks. Vectors, matrices and arrays of data are 
instantly recognized by bars, stars and brackets. Thus, a 
vector becomes V, a matrix ft, and an array [A] ... Further, 
bit strings appear with a dot, i.e., B and character strings 
with a comma, C. With these special marks as aids, the source 
listing is more easily understood and serves as an important 
step toward self-documentation. In addition, to data marks 
the HAL/S output listing has been standardized; logical para- 
graphs, or blocks of code, are automatically indented so that 
dependence of one block on another may be seen clearly. 

HAL/S is a higher-order language, designed to allow 
programmers, analysts and engineers to communicate with the 
computer in a form which approximates natural mathematical 
expression. Parts of the English language are combined with 
standard notation to provide a tool that .readily encourages 
programming without demanding computer hardware expertise. 

1.2 Data Types and Computations 

HAL/S provides facilities for manipulating a number of 
different data types. Arithmetic data may be declared as 
scalar, vector, matrix or integer (whole number) . Individual 
bits may be treated as Boolean quantities or grouped together 
in strings. The language permits the user to manipulate 
character strings, via special instructions. Organizations^ 
of data may also be constructed; multi-dimensional arrays of 
any single type can be formulated, partitioned, and used in 
expressions. A hierarchical organization called a structure 
can be declared, in which related data of different types 
may be stored and retrieved as a unit or by individual refer- 
ence. 

The arithmetic data types together with the appropriate 
operators and built-in functions constitute a useful mathe- 
matical subset. HAL/S may be used in a straightforward manner 
as a "vector-matrix" language in implementing large portions 
of both on-board and support software. For example, a simpli- 
^ ,£_£ ■TggiQrattd. r t3*ii 1 ' Of mot ion mi gh t appear as 

A = B ACC; 

G = -MU UNIT(R)/E,R; 

VDOT = A + G; 

RDOT = V; 
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where the matrix B transforms acceleration from measurement 
tc reference coordinates. . 

By combining data types within expressions and ut i*^ 
v.~-n -imnlicit and explicit conversions from one type to anotner, 
yl'/sZl be applied to a wide variety of problems with a 
pcverful and versatile capability. 

1.3 Real-Time Control 

HAL/S is a real-time control language; that is, certain 
coined blocks o? code called programs and tasks can be 
scheduled based on time and/or the occurren «*£«£"*?£?£ ie 
::.:: ts . These events may include external interrupts, speciric 

specify appropriate action. 

1.4 Program Reliability 

Program reliability is enhanced when a software system 
c- create effective isolation for various subsections of code 
well as maintain and control commonly used data. HAL/S is 
block-or ^language in that a block of code can be 
--mi shed with locally defined variables that cannot oe 
-tredlv sections of program located outside the block, 
-pendent b?ocSs can be Compiled and run together with 
creation among the programs permitted th rough Jjc«£rally_ 
managed and highly visible data pool. For a ^ ^ envir 
r— - HAL/S couples these precautions with a protection 
r-hanism whichprevents , by programmer directive th e 
unauthorized or untimely use of commonly shared data and/or 
subroutines . 

-^ese measures cannot in themselves ensure tota^soft- 

™1 c^ate^proLems .^cK.'pr.v.Unt L real-time 
control, can be isolated and solved. 



a 
a 

e 
a 
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2.0 SYNTAX DIAGRAMS AND HAL/S PRIMITIVES 



In this Specification, the syntax of the. HAL/S 
language is represented in the form of syntax diagrams. 
These are to be read in conjunction with the associated sets 
of semantic rules. Together the two provide a complete, 
unambiguous description of the language. The syntax diagrams 
are mutually dependent in that syntactical elements referenced 
in some diagrams are defined in others. There are, however, 
a basic set of elements for which no definition is given. 
These are the so-called "HAL/S primitives". 

This Section has two main purposes: to explain how to 
read syntax diagrams, and to provide definitions of the HAL/S 
primitives. Various aspects of the format of HAL source 
text which impact upon the meaning of the diagrams are also 
discussed briefly* 

2.1 The HAL/S Syntax Diagram ' 

Syntax diagrams are a flow-diagram like means of 
representing the formal grammar of a language. By tracing 
the paths on the diagrams, various examples of the language 
construct represented may be generated. In the context of 
HAL/S it is this generational aspect of the syntax diagrams 
which is emphasized. It is stressed that although the flow 
diagrams presented in this Language Forms manual are logically 
complete, they are not meant to be viewed as constituting 
-a- i'working" grammar (that is, as an analytical tool for 
compiler construction) . Rather they are to be viewed as 
purely instructional in nature. 

A typical example of a syntax diagram is illustrated 
below. Following the diagram a set of rules for reading 
it correctly are given. The apply generating to all syntax 
.diagrams to be presented in the ensuing sections. 
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RULES : 

1. In every diagram there is a syntactical element being 
defined. The name of the element being defined appears 
in the hexagonal box©. The title of the syntax 
diagram© is usually a discursive description of the 
syntactical element. In the case illustrated, the 
lanquage construct depicted is a particu.lanzation of 
the syntactical element defined (a "WAIT statement' 
is an example of © ) . 

2 • To qenerate samples of the construct, the line is to be 

followed from left to right from box to box, starting 
at the point of juncture of the definition box Q) , and 
ending when the end of the line © is reached. 

3 The line is moved along until a black dot © is arrived 
""at No "backing up" along points of convergence such as 

(lb* is allowed. A black dot denotes that a choice of 
piths is to be made. The possible number of divergent 
paths is arbitrary . 

4 Potentially infinite loops such as ©may sometimes be 

* encountered. Sometimes there are semantic restrictions 
upon how many .times such loops may be traversed. 

5 Every time a box is encountered, the syntactical element 
' it represents is added to the right of the sequence of 
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elements generated by moving along the line. For example, 
moving along the path denoted by the dotted line (&) 
generates the sequence "WAIT <arith exp>;" (see Rule 7.). 

6. Boxes with squared corners such as (9) represent syntactical 
elements defined in other diagrams. Circular boxes such 
as @ , or boxes with circular ends, such as (Q) , repre- 
sent HAL/S primitives. 

7. In the text accompanying the syntax diagrams, boxes 
containing lower case names are represented by enclosing 
the names in the delimiters <>. Thus box (9) becomes 
<arith exp>. Upper case names are reserved words of the 
language . 
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2 . 2 The HAL/S Character Set 

The HAL/S character set consists of the 26 alphabetic 
characters, the numerals zero through nine, ^f^axn 
special characters. The restricted character se t " the 
set necessary for the construction of the HAL/S primitives 
?o be described. The extended character set adds to the 
restricted set certain-extrTspecial, characters legal in 
Places like comments and character literals and used chief U 
for the purpose of compiler listing annotation. 

The following table gives a complete list of the charac- 
ters in the extended set, with a brief indication of their 
principal usage. 
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alphabetic and numeric 



A 
D 
C 
D 
E 
F 
G 
H 
I 
J 
K 
L 
M 
N 

P 
Q 
R 
S 
T 
U 
V 
W 
X 
Y 
Z 



a 
b 

c 
d 

e 
f 

g 

h 
i 

J 
k 
1 
m 
n 
o 
P 

q 

r 
s 
t 
u 
v 
w 

X 

>y 

z 




1 
2 
3 
4 
5 
6 
7 
8 
9 



identifiers 
reserved words 
literals 



identifiers 
literals 



special character 




identifiers 

, c Tl *T> •-"- | 



operators 

0fC t i-J il fa- 



\_0 &t<-A» 



(\r&> 



/ / /XT 






io+ct-t***^ 



b ^^ 



?t V-"'* 



separators 



delimiters 



keywords 



[ 
] 
{ 
} 
! 
? 



extended -set 
characters 




jT.X 



C^ 
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2.3 HAL/S Primitives 

HAT/q svntax diagrams ultimately express all syntac- 
tical eS t eriAf a" small number of undefined pnmi- . 
liZl Primitives are constructed from the characters 
comprising the HAL/S restricted character se.t. There are 
tn^ee broad classes of primitives; "reserved words", 
"identifiers", and "literals". 

2.3.1 Reserved Words 

As their names suggest, reserved "? rd * f e "^f* 
recognized to have standard meanings within ^ l£ n |£g e - e 

and of built-in function names in Appendix B. 

2.3.2 Identifiers 

An identifier is a name assigned by the Programmer to 

a^p^ 

Each valid "identifier?, must satisfy the following rules: 

• the total number of characters must not exceed 32; 

• the first character must be alphabetic; 

• any character except the first may be alphabetic 
or numeric; 

• any character except the first or the last may be 
a "break character" (__) . 

The first appearance of an < identifier »*f «£2* e ;££ li,hM 
^a U srftf?vpe an i^noSnrit U i S %iren t re-o £ T tnrfo 1 io„in g 
syntactical names, as appropriate: 
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<label> 

<process-event name> 
<§ var name* 
<structure template> 



where § 



'arithmetic 
character 
bit 
event 
structure 



The manner in which its attributes are established is discussed 
in Section 4. The manner in which it is thereafter referenced 
is discussed in Section 5. 

2.3.3 Literals 

Literals are groups of characters expressing their 
own values. During the execution of a body of HAL code their, 
values remain constant. Different rules apply for the forma- 
tion of literals of differing type. 

FORMATION RULES (arithmetic literals); 

1. No distinction is made between integer- and scalar-valued- 
literals. They take on either integer or scalar type 
according to their context. Similarly, no distinction 

is made between single and double precision. Consequently, 
arithmetic literals can be represented by the single 
syntactical form <number>. 

2. The generic form of a <number> is: 

± ddddddd.dddddddd <exponents> d = decimal digit 

Any number of decimal digits, including none, may appear 
before or after the decimal point. The sign and decimal 
point are both optional. Any number of <exponents> may 
opt ional ly ■■£ o How . 
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3. The form of any of the <exponents> may be 



B <power> 
E <power> 
H <power> 



^power* 



10 



< power >/j 



16 



<power> 



where <power> is a signed integer number 



EXAMPLES : 



0.123E16B-3 

45.9 

-4 



FORMATION RULES (bit literals) 

1. Literals of bit type are denoted syntactically by 
<bit literal>. 

2. They have one of the following forms shown below: 



BIN <repetition> •bbbbbbb' 

OCT <repetition> 'ooooooo' 

HEX < repetition^ 'hhhhhhh' 

DEC <repetition> ' ddddddd* 




b = binary digit V . 
o = octal digit . y • ^K 
h = hexadecimal digit v 
d = decimal digit . 



The <repetition> is optional and consists of a parenthe- 
sized positive integer number. It indicates how many 
times the following string. is to be used in creating 
the value. 
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3. The following abbreviated forms are allowed: 

TRUE 5 ON = BIN'l' 
FALSE = OFF = BIN'O' 



EXAMPLES : 



BIN' 11011000110 • 
HEX (3) 'F' 



FORMATION RULES (character literals) 



^ i^fl 






fs 



1. Literals of character type. are denoted syntactically 
by <char literal> . 

2 . The form of a character literal is: 

• cccccccccccccc ' 

where c is any character in the HAL/S extended character 
set. 

3. A null character literal (zero characters long) is 
denoted by two adjacent apostrophes. 

4. Since an apostrophe delimits the string of characters, 
inside the literal an apostrophe character is denoted by 
an apostrophe pair, (i.e. the representation of "dog's" 

would be 'DOC'S', for example). ^^ a 

4. The character pair /* is always taken to be the opening^ //; 



delimiter of a comment even in a character literal* 



p^r 



EXAMPLES :i 



it 



•ONE TWO THREE' 
'DON' 'T' 
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2.4 Single Line and Multiple Line Source Text 

In preparing the source text of HAL code, single or 
multiple line format may optionally be used. In the single 
line or "1-dimensional" format, exponents and subscripts 
are written on the same line as the operands to which they 
refer. In the multiple line or "2-dimensional" format ' • 
exponents are written above, and subscripts are written below 
respectively, the line where the operands they refer to are 
written. Of the two formats, the 2-dimensional is regarded 
as standard, since it follows usual mathematical practice. 



RULES FOR EXPONENTS: 

1. In the syntax diagrams, the 1-dimensional format is 

assumed for clarity. The operation of taking an exponent 
is denoted by the operator **. 



EXAMPLES : 



A X •-*■ A**I 



,**T**. 



2. Operations are evaluated right to left (see Section 6.1.1). 

3. If an exponent is subscripted, its subscript must be 
given its 1-dimensional description. 



RULES FOR SUBSCRIPTS: 

1. In the syntax diagrams, the 2-dimensional format is assumed 
for clarity. Two special symbols are used to denote the 
descent to a subscript line, and the return, from it: 



<i> 



descent to subscript 



<3> 



return from subscript 
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Effectively, they delimit the beginning and end 
respectively, of a subscript expression. 

In the 1-dimensional form of the HAL/S subscript, the 
subscript expression is delimited at the beginning by 
$"| and at the end by a right parenthesis . 



EXAMPLE : 



v K+2 



A$(K+2) 



For certain simple forms of subscript, the parentheses 
may be omitted. These 'forms are: . 

• a single number; 

• a single unsubscripted <arith var> 



EXAMPLE : 



Aj -> A$J 



4. IF a subscript expression contains an exponentiation 
operation, the latter must be given its 1-dimensional 
representation . 



15 
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2.5 Other Aspects of the Source Text 

Anv HAL source text consists of sequences of HAL/S 

separators between identifiers, keywords, ^literals. 
Except in character lit«a^_ jsongegxtx vg blanks are 
t^^ctic^-ly~e^iv arent to a single _blank. 



Comments may be imbedded within HAL iJ^SSd^the 
wherever blanks are legal'. A comment is delimited at the 
beginning by t 
set r m!y e a P |ear in ^Tc^^iV (except, of course, for 



wherever Dianas axe xcyoo.. ~ ww..~..-«- — _^ ■ . h 

SSSS? S^V^^SS^ ? ^ej^^Secter 
set may appear in 
* followed by /) . 
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3.0 HAL/S BLOCK STRUCTURE AND ORGANIZATION 



The largest syntactical unit in the HAL/S language 
is the "unit of compilation". In any implementation, the 
HAL/S compiler accepts "source modules" for translation, and 
emits "object modules" as a result. Each source module 
consists of one unit of compilation, plus compiler directives 
for its translation. 

At run time an arbitrary number of object module's are 
combined to form an executable "program complex". Generally 
a program complex contains three different types of object 
modules: 

program modules - characterized by being indepen- 
dently executable. 

external procedure and function modules - charac- 
terized by being callable from other modules. 

compool modules - forming common data pools for 
the program complex. 

Each module originates' from a unit of compilation of corres- 
ponding type. 

3.1 The Unit of Compilation 

Each unit of compilation consists of a single PROGRAM, 
PROCEDURE, FUNCTION, or COMPOOL block of code, possibly 
preceded by one or more block templates. Templates m effect 
provide the code block with information about other code 
blocks with which it will be combined in ob 3 ect module form 
at run time. 



• 



© 



« 
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SYNTAX: 



unit of compilation 




function block 



procedure block 



J 



"*T 



function template 



procedure template 



compool template 



late 

ZJ-J 



compool block 



program block 



& 






' lJ &sX*J*& jf* 
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3.2 



The PROGRAM Block 



The PROGRAM block delimits a main, independent body 
of HAL/S code consisting of a <declare group>/ and any number 
of executable <statement>s and/or nested PROCEDURE, FUNCTION, 
TASK, and UPDATE blocks. Delimiting is done by a <program 
header> and a <closing>. 



SYNTAX: 



PROGRAM block 



/ program \ 
\ block / 



■<gf-0- 



program header 



declare group 



statement 



-*4 



task block 



update block 






function block — •■ 



procedure block 



closing — 
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EXAMPLE : 



SAMPLE: PROGRAM; 

DECLARE A SCALAR; 
DECLARE B VECTOR; 

* 

BETA: FUNCTION (Y); 

* 

CLOSE BETA; 
ALPHA: PROCEDURE 

CLOSE ALPHA; 

A = K + BETA(X) ; 

B = R*V; 

CALL ALPHA; 
CLOSE SAMPLE; 



declare group 



function block 



procedure block 



executable stmts. 
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3.3 The PROCEDURE, FUNCTION and TASK Blocks 

PROCEDURE, FUNCTION, and TASK blocks share a common 
purpose in serving to structure HAL/S code into an interlock- 
ing modular form. The major semantic distinction between the 
three types of blocks is the manner of their invocation 
(described in Section 7.4, 6.4, and 8.3 respectively). Each 
block is delimited by a header statement of the proper type 
and a <closing>. The blocks consist of a <declare group> to 
declare data local to the block, followed by any number of 
executable <statement>s and/or nested PROCEDURE, FUNCTION, 
and UPDATE blocks. 



SYNTAX : 



PROCEDURE 
§ FUNCTION block 

TASK 



/ § block \ 



statement 



; ^-MabeTVQT)- § header 



declare group 



update block 



procedure block 



function block 



closing 



P 
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EXAMPLE OF NESTING PROCEDURES AND FUNCTIONS: 



NEST: PROCEDURE; 

DECLARE A VECTOR; 

« 

ALPHA: PROCEDURE; 
DECLARE B; 

BETA: FUNCTION (X) ; 
DECLARE X; 

GAMMA: PROCEDURE; 

« 

CLOSE GAMMA; 
CLOSE BETA; 

« 

CLOSE ALPHA; 
CLOSE NEST; 



1 



1 



J 



J 
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3.4 The UPDATE Block . 

The UPDATE block is -used to control the sharing of 
data by more than one real time process (see Section 7.) and, 
is invoked when it is encountered in the normal flow of 
execution. The UPDATE block is delimited by an <update header > 
and a <closing>. The block consists of a <declare group> to 
declare data local to the UPDATE block, followed by any number 
of executable <statement>s (except I/O and real-time statements) 
and/or nested PROCEDURE and FUNCTION blocks. 



SYNTAX : 



UPDATE block 



/ update \ 
N. block ) 




update header 



declare group 



1 



-— ttatement — ■» 

, a. *i 



label 



procedure block — 



I — function block — ' 



closing 



EXAMPLE : 



A: TASK; 



UPDATE; 

" « 

M=N+P ; 



CLOSE; 



/* END OF UPDATE' BLOCK */ 



CLOSE, A; 
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3.5 The COMPOOL Block 

The COMPOOL block specifies data in a common data 
cool to be shared at run time by a number of prpgram, proce- 
dure, or function modules. The number of COMPOOL blocks 
allowed in a program complex is implementation dependent. 

SYNTAX : 



COMPOOL block 



compool 
block 



^— G^>-0- 



compool header 



declare group 



H 



closing 



EXAMPLE: MAIN_COMPOOL: COMPOOL; 

DECLARE M MATRIX; 
• DECLARE V VECTOR INITIAL (1 ,0 , 0) 



declare 
group 



CLOSE MAIN COMPOOL; 
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3.6 PROCEDURE, FUNCTION, and COMPOOL Templates 

Block templates are used to provide the outermost 
code block Of a <compilation> with information 1 concerning 
external code blocks. Both the <label> and the header 
statement must be identical to those of the corresponding 
code block, except the keyword EXTERNAL on the leftmost side 
of the header statement distinguishes it from an otherwise 
identical code block. A COMPOOL template declares a common 
data pool identical to that of the corresponding COMPOOL 
block; a PROCEDURE or FUNCTION template declares the formal 
parameters of the corresponding PROCEDURE or FUNCTION block. 
Depending upon implementation, the compiler system may 
generate and maintain templates automatically. 



SYNTAX : 



^template/ 



PROCEDURE 

FUNCTION 

COMPOOL 



template 



; )— -~MabeTV-/7V-^EXTERNAL 



§ header 



declare group 



c losing 
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EXAMPLES : 

ETA: EXTERNAL COMPOOL; 
DECLARE S SCALAR; 
CLOSE ETA; 

BUZZ: EXTERNAL FUNCTION ( [X] ) ; 

DECLARE X ARRAY (4) VECTOR; 
CLOSE BUZZ; 



BAKER: PROCEDURE (A) ASSIGN (B) 

DECLARE VECTOR(6) ,A,B,C; 

« 

A = B + C; 

CLOSE BAKER; 



procedure 
block 



BAKER: EXTERNAL PROCEDURE (A) ASSIGN (B); 

DECLARE VECTOR(6) ,A,B; /* NOTE ONLY ARGUMENTS ARE DECLARED */ 
CLOSE BAKER; 



procedure 
template 



ABLE: PROGRAM; 



CALL BAKER (ZETA) ASSIGN(PHI); 



CLOSE ABLE; 



program 
block 
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3.7 Block Delimiting Statements 

Both code blocks and block templates are delimited at 
the beginning by a header statement characteristic of their • 
type, and at the end by a <closing> statement. In all code 
blocks except for the COMPOOL block the header statement is 
the first statement of the block to be executed on entry, and 
the <closing> statement is the last to be executed before 
exit.. A COMPOOL block, containing only declarations of data, 
is not executable. 



3.7.1 Simple Header Statements 

Simple header statements are those which specify no 
parameters to be passed into or out of the block. They are 
the compool, program, task, and update header statements. 



SYNTAX: 



COMPOOL 
PROGRAM 
TASK 
UPDATE block 



header statements 



/ update \ 
\ header / 



( 



task 

header 



J (update) ("]} 



( gr ) . -*— ( task X D— 



(Tag ) "3 ( PHOORAM X j)— 



-) (COMPOOILJ (j\~ 
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3.7.2 The Procedure Header Statement 

The procedure header delimits the start of. a PROCEDURE 
block or PROCEDURE template. The <identifiers> ^following 
the PROCEDURE keyword are "input parameters" whose values 
may not be changed within the code block; the. <identif iers> 
following the ASSIGN keyword are "assign parameters" whose 
values may be altered within the code block. All of these 
parameters must have data declarations in the <declare group> 
of the PROCEDURE block or template. The keyword REENTRANT 
allows real-time sharing of the PROCEDURE block. The keyword 
EXCLUSIVE allows only one real-time process to use the PROCEDURE 
block at a given time; any other processes must wait to use 
the PROCEDURE block until the first is finished executing it. 
The keyword ACCESS places Implementation dependent managerial 
restrictions on which <compilation>s may reference an external 
PROCEDURE block. 



SYNTAX : 



/procedur«\ 
\ header / 



PROCEDURE header statement 



e (PROCEDURE }— • 




REENTRANT 



EXCLUSIVE 




<D- 



ACCESS 



EXAMPLES : 



PROCEDURE ASSIGN (B) ; 

PROCEDURE (V,M) ASSIGN (N) EXCLUSIVE; 

PROCEDURE (X) ACCESS; 
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3.7.3 The Function Header Statement 

The function header delimits the start of a FUNCTION 
block or FUNCTION template. The ^identifiers^ following the 
FUNCTION keyword are "input parameters" whose values may not 
be changed within the code block, and whose data type, is 
declared in the <declare group> of the FUNCTION block or 
template. <type spec> identifies the type of value returned 
by the FUNCTION block (<type spec> may not be an event type) . 
The keyword REENTRANT allows real-time sharing of the FUNCTION 
block. The keyword EXCLUSIVE allows only one real-time process 
to use the FUNCTION at a given time; any other process must 
wait to use the FUNCTION block. The keyword ACCESS places 
implementation dependent managerial restrictions on which 
<compilation>s may reference an external FUNCTION block. 



SYNTAX : 



FUNCTION header statement 



/ function \ 
\ header / 



r$ 



i 



9 (FUNCTION 




type spec 



EXCLUSIVE 



■ay 




REENTRANT 



y 




ACCESS 




<i> 



EXAMPLES : 



FUNCTION (A) SCALAR REENTRANT; 
FUNCTION (ALPHA,BETA) VECTOR; 
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.3.7.4 The CLOSE Statement 

For all code blocks and block templates, the CLOSE 
statement is the <closing> delimiter. If the CLOSE keyword 
is followed by a <label>, the <label> must be the name of 
the block. The <closing>s of the COMPOOL blocks and block 
templates cannot have a <label> to the left of the keyword 
CLOSE. 



SYNTAX: 




EXAMPLES 



ALL DONE: CLOSE; 



•CLOSE MAJOR COMPOOL; 
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3.8 Name Scope Rules 

As a consequence of the code block structure of HAL/S , 
the scope of a name (<ident£f ier>) , i.e. a <yariable name> or 
<label> is defined as the block in which xt is-declared. and 
potentially extends to all contained and nested blocks .The 
scope of a name is therefore the region in which xt xs poten 
tially recognizable. For example, names defxned in a 
<compool block> are potentially recognized throughout every 
compilation unit; i.e. program block>s and external procedures 
and functions; names defined in a <program block> may be 
recognized in all enclosed <task block>s , procedure block>s, 
<f unction block>s, or <update block>s, etc. Duplicate names 
are allowed in different blocks where the outer declaration 
of the name is superseded, in the inner block only, by the 
explicit declaration. A name defined only within an inner 
block is never recognized in an outer block. 

HAL/S does not permit GO TO's between blocks of code, 
thus a branch from an inner block to an outer block is speci- 
fically disallowed. 



EXAMPLE : 



outer 
name " 
scope 



inner 
name " 
scope 



ALPHA: PROGRAM; 
DECLARE X ; 
DECLARE Y; 



/* X IS KNOWN EVERYWHERE */ 

/* Y IS KNOWN ONLY OUTSIDE BETA */ 



BETA: PROCEDURE; /* LABEL BETA KNOWN IN ALPHA */ 
DECLARE Y; /* NEW Y KNOWN ONLY IN BETA */ 
DECLARE Z; /* Z KNOWN ONLY IN BETA */ 



CLOSE BETA; 

■ ! " " • 
• 

' DJELTA; Y=p; 

CALL BETA; 

■ • 

CLOSE ALPHA; 



/* DELTA NOT KNOWN IN BETA */ 

/* BETA CAN BE CALLED ONLY FROM ALPHA */ 



31 



INTFRMETRIC 



3 INCORPORATED • "0! CONCORD AVENUE • CAMBRIDGE. MASSACHUSETTS 02138 • (617) C6M840 



32 



INTERMETR.CS INCORPORATED • 701 CONCORD AVENUE • CAMBRIDGE. MASSACHUSETTS 02138 , (617) 661-1840 



4.0 DATA AND LABEL DECLARATIONS 



The HAL/S language possesses a comprehensive set 
of data types for use in both applications and systems 
programming situations. To encourage clarity and decrease 
the frequency of errors of omission, all data is required 
to be defined in specific areas of a HAL/S compilation called 
"declare groups". 

4.1 The Declare Group 

A <declare group> is a collection of data and label 
declarations possibly consisting of <replace statements, 
<structure template>s, and <declare statements. 



SYNTAX: 



/ declare \ 
NyBTOup/ 



declare group 



replace statement 



structure template 



statement ~ ' 



declare statement 



EXAMPLES : 



REPLACE PI BY '3. 14159'; 
REPLACE MU BY '1234' ; 

STRUCTURE A: 
''l B SCALAR, 
1 C INTEGER; 



Replace group 



Structure. Template 



33 



INTERMETRICS INCORPORATED • 701 CONCORD AVENUE • CAMBRIDGE, MASSACHUSETTS 02130 • (617) 601-1040 



DECLARE A AJ5TRUCTURE; 
DECLARE INTEGER, M,N? 
DECLARE V VECTOR? 



Declare Group 
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4.2 



The REPLACE Statement 



The REPLACE statement is used to define a name (i.e. 
<identifier>) as a text substitution. Any HAL/S code contain- 
ing reference to the <identifier> is treated as if the text 
of <char literal> had instead appeared in that position. 
<identifier> may not be a formal parameter in a <procedure . 
header> or <f unction header>, nor may an <identifier> in a 
REPLACE statement be the subject of a replacement itself. 



SYNTAX : 



/ replace \ 
V statement/ 



REPLACE statement 



■ ) ^REPLACE V/identifierW" BY J — f char literal J Q^- 



EXAMPLES 



REPLACE ALPHA BY ' J+l * ; 

REPLACE TERMINATION EY 'GO TO FINISH'; 
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4.3 



The Structure Template 



In HAL/S, a "structure" is a hierarchical organization 
of ' generally inhomogeneous data items. Conceptually the form 
of the organization is a "tree", with a "root", "branches", 
and with the data items as "leaves". The definition of the 
"tree organization" (the manner in which root is connected 
to branches, and branches to leaves) is separate from -the 
declaration of structure data having that organization. 
The tree organization is defined by a <structure template>. 

The following figure shows a typical tree organization 
in its conceptual form: 



start of end of 

tree walk y > tree walk 



NAME 



O terminal data item 
O minor structure 
/\ template name 




v.. 



tree diagram for a typical structure template 
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The keywords DENSE and ALIGNED denote data packing 
attributes of all structures possessing the <structure 
template > as explained in Section 4.6. 

The names of minor structures (i.e. each fork or 
diagram) and terminal data items must be defined in the 
same order as the tree walk (shown on diagram) passes them 
on the left (see example below which shows this in relation 
to the above diagram). 

The form STRUCTURE identifier appearing after the 
colon causes a previously defined <structure template> 
called <identifier> to be incorporated as part of the 
<structure template> being defined. 



SYNTAX: 



structure template statement 



/structure \ 
\ template / 



K 



^TRUCTURE\-/identifierY 



DENSE 



<D— - 



ALIGNED 



number V*y-f identifier V- 

M 



attributes 



-•r 



jX= 



STRUCTURE H identifier 



<I> 



<D- 
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EXAMPLE (corresponding to tree diagram shown on previous page) 

STRUCTURE OMEGA DENSE: 

1 PHI ARRAY(50) BIT(31) , 
1 ZETA SCALAR, 
1 ALPHA, 

2 BETA ARRAY (25) , 
2 GAMMA, 

3 LAMBDA__1, 

4.. MHOS INTEGER, 
4 COND SCALAR, 
3 NU, 
3 LAMBDA_2 , 

4 OHMS INTEGER, 
4 RESIS SCALAR; 
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4.4 



The DECLARE Statement 



The DECLARE statement is used to declare variable 
names, and labels, and to define their characteristics, or 
< attributes >. Any <inf lections> given immediately after the 
keyword DECLARE are characteristics (factored attributes >) 
of all <identifier>s in the DECLARE statement. Each 
<identifier> and associated attributes > constitutes the 
declaration of the particular < identified , and must not 
conflict with any factored < attributes > . The appearance 
of either a label or a variable name determines the form of 
the < attributes > (see Sections 4.5 and 4.6 respectively). 



SYNTAX : 



declaration statement 



(declare \ 
statement / 



-^DECLARE> 



■€> 



attributes 



^-/TdentifierV| attributes -J—Qj — 



toy 



EXAMPLES: 



DECLARE INTEGER, A,B, ARRAY (5); 
DECLARE M ARRAY (10) MATRIX (2 , 3) ,• 
DECLARE ABLE FUNCTION SCALAR; 
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4*5 



Label Declarative Inflections 



Label declarations in HAL/S are used to define the 
names of PROGRAM, TASK and FUNCTION code blocks. The forms 
PROGRAM and PROGRAM EVENT may only appear in the <declare 
group> of a <compool block> and its corresponding template 
to allow any external <program block> to be. referenced . by a 
<compilation>. The keyword EVENT allows a process-event 
(see Section 8.9) to be attached to the <program block>. 

The form TASK EVENT may only appear in the <declare 
group> of a <program block> to allow the named <task block> 
to have attached to it an identically named process-event. 

The form FUNCTION <type spec> is used to define. the 
name and type of a < function block>. The function defined 
this way must have at least one formal' parameter, none of 
which may be arrayed. A function declaration is required 
whenever a function is used prior to the appearance of its 
code block. 



SYNTAX: 



/ attributes \ 



label declarative attributes 



. (PROGRAMJ ; 

-/PROGRAM \ ( EVENT \ 

— ('task } f event) 



FUNCTION 



H 



type spec 



EXAMPLES : 



DECLARE ALPHA PROGRAM? 

DECLARE USER_FUNC FUNCTION INTEGER; 

DECLARE BETA TASK EVENT; 
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4.6 Data Declaration Attributes 

Data declaration attributes are used to define an 
<identifier> to be a variable name or part of .a structure 
template, and to describe its characteristics. If • 
< attributes > appears in a.<declare statements, it. defines a 
variable name. If < attributes > appears in a structure 
template> it defines either a minor structure, or a terminal 
data item of the template. Terminal data items have very 
similar properties to variable names. 

The keyword ARRAY allows the specification of the 
number and sizes of the dimensions in the array. Each 
<arith exp> denotes the integral size of a dimension, while 
an asterisk denotes a linear array of Unknown length which is used 
as a formal parameter of a procedure or function. The actual 
length is that of the corresponding argument on invocation. 

The following attributes are allowed for variable 
names: 

• AUTOMATIC/STATIC - an <identif ier> with the 

AUTOMATIC attribute is initialized upon every 
entry into the code block containing its 
declaration. An <identifier> with the STATIC 
attribute is initialized once upon first entry, 
into the code block. Generally if neither key- 
word appears STATIC is assumed. 

• DENSE/ALIGNED - If the <identifier> has the 

ALIGNED attribute, its storage is arranged on 
natural word or fractional word boundaries 
so as to optimize speed of reference. If the 
<identifier> has the DENSE attribute its storage 
is packed so as to minimize the size of storage 
area required. In the absence of either keyword, 
ALIGNED is assumed. 

ACCESS - causes managerial restrictions to be placed 

• upon the usage of the <identifier> as a variable 
in assignment contexts, and may only be used in 
the <declare group> of a <compool block> or its 
template. 
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• LOCKED - may only be used in .the <declare group> 

of a <compool block> or its template and causes 
use of the < identified to be restricted to 
UPDATE blocks (see Section 8, 10). 

• LATCHED - only applies to event variables as speci- 

fied in Section 4.7. 

• <initialization> - allows initialization of an 

<identifier> as specified in Section 4.8. 

Terminal data items and minor structures may only use the 
attributes DENSE or ALIGNED. 



SYNTAX : 



( Xrributet ) 
\ , / 



data declarative attribute* 



5 T 



^array\-{T)- 



arith exp 



i exp — ^ 

r> — I 



<D 



< 



AUTOMATIC 



STATIC 




DENSE 



ALIGNED 



> 
> 



r~*i 



< 



ACCESS 



y- 



LOCKED 



< 



LATCHED 



V 



initialization 



T 



-, 1 type spec 



■o-> 



'W.,* A' 



pf 



j- 



i> 



byw. 



U ~V 
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4.7 Type Specification 

The type specification or <type spec> provides a means 
of defining the type (and precision of VECTOR, MATRIX, INTEGER, 
and SCALAR type only) of variable names and terminal data 
items of structure templates. If there is no <type spec> 
given, then the implied type of a variable name or terminal 
data item is SCALAR with SINGLE precision; if <type spec> 
consists only of the keyword SINGLE or DOUBLE then it is 
SCALAR of the indicated, precision. 

The <arith exp> of a VECTOR is its length; the default 
value is 3. Similarly, the two <arith exp>s of a MATRIX 
are its row and column dimensions respectively; the default 
is a 3-by-3 matrix. The <arith exp> of a CHARACTER type 
denotes its maximum length whose default value is 8. 
BIT(<arith exp>) indicates a bit type of the specified length. 
Both BOOLEAN and EVENT indicate a bit type of 1-bit length, 
however, EVENT is used in real time programming situations 
(see Section 8.8). 

The phrase <identif ier>-STRUCTURE denotes structure 
type with a tree organization given by a previously defined 
template named <identif ier> . If the structure variable name 
in the declare statement is the same as the <template name>, 
then the structure is said to be unqualified; if they differ 
then the structure is said to be qualified (see Section 5.2). 
<arith exp> gives the number of copies of the structure. The 
copy specification may only be an asterisk if the structure 
is a formal parameter of a procedure or function, in which 
case the actual number of copies is supplied by the correspond- 
ing argument on invocation of the procedure or function. 
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SYNTAX: 



tfp* ipecKication 



-^ATRI>OhQ)- arith «xp -Q- arith axp -Q)— 




^ECTOrV{T)- arith exp — (j\ 



-^matrix i j- 
-/vectorV 
-/scalarV 
-mntegerV 



-/ BIT ) — CO - 3 " ,h 8xp — J 

G 



CHARACTER 



> 



-TcHARACTER^— T7)— arith exp — f)J- 



— r EVENT ^ — 
-T BOOLEAN J- 



>-^«mplatoJ__/sTRUCTUREY- 



^ 



arith exp 




KH: 



SINGLE 



DOU8LE 




EXAMPLES 



MATRIX'(2,2) DOUBLE 
Z~STRUCTURE<15) 
CHARACTER (7) 
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4 *8 Initialization 

The <initialization> starts with the keyword INITIAL 
or CONSTANT. A CONSTANT <initialization> makes it illegal 
for <identif iers> to appear in an assignment context since 
its value may never be changed. 

A simple <initial list> is a sequence of one or more 
<expression>s of the proper type which are computable at 
compile-time. A simple <initial list> may be repeated to 
form a more complex <initial list> by the phrase <arith exp>#. 
<arith exp># may also precede a single literal or a single 
unsubscripted variable name, (denoted by § in the syntax diagram) 

In general, the number of values in the <initial list> 
must be equal to the total number of components of the 
variable. However, an asterisk following the <initial list> 
implies the partial initialization of a variable name. 

If the variable has array specification, and is an 
integer or a scalar, a single value in the <initial list> may 
be used to specify the initial value of all the array elements. 
Similarly, for vector, matrix, bit or string initialization 
a single value in the <initial list> can specify the initial 
value of each individual component, or of each component of 
an array of vector, matrix, bit or character type. If the 
variable is an array of vectors or matrices, and the number 
of values in the <initial list> is equal to the number of 
components of the vector or matrix, then those values are 
applied to all array elements alike. If the variable is a 
structure with multiple. copies, and the number of values in the 
<initial list> is exactly equal to the total number of data 
elements in one copy of the structure, then each structure 
copy is identically initialized with those values. 
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SYNTAX : 



(initialization \ 



initialization specification 



3-^ 



•/constant J 1 — (j\ — 



Mi 



INITIAL 




initial list 




rO- 



» W* 



/ initial \ 
\ "« / 



expression 



arithexp — C"0~T — CO — initial list — M/ 

— -G ' 



r*? 



o- 




vf 






EXAMPLES : 



DECLARE A ARRAY (8) INTEGER INITIAL (2 # (1 ,3#5) ) . 
DECLARE B ARRAY (5) BIT(7) C0NSTANT(5# (BIN 1 1010011 ' ) ) ; 
DECLARE C CHARACTER (5) INITIAL ( 'ALPHA' ) ; 

DECLARE IDENTITY_MAT MATRIX INITIAL (1 ,0 ,0 ,0 ,1 , , , , 1) ; 
DECLARE V ARRAY (4) VECTOR(5) INITIAL (1 ,2, 3,4 , 5) ; 



(lukk ^^ <W+ \r <K • tfw\ fi v*4y*\ W&f. • ,'i 





0' v 
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5.0 DATA REFERENCING CONSIDERATIONS 



Central to the HAL/S language is the ability to 
access and change the values of variables. Section 4. 
dealt comprehensively with the way in which variable names 
are defined. This Section addresses itself to the various 
ways these names can be compounded and modified when they 
are referenced. 



5. 1 Referencing Simple Variables 

A "simple variable" is any variable which is not a 
structure or part of one. When a simple variable is defined 
in a <declare group> , it is syntactically denoted by the 
<identifier> primitive. Thereafter, since' its attributes 
are known, it is denoted syntactically by the <§var name> 
primitive, where § stands for any of the types arithmetic, 
bit, character, or event. 

5. 2 Referencing Structures 

When an <identifier> • is declared to be a structure, 
its tree organization is that of the template whose 
<template name> appears in the structure declaration. Refer- 
ences to the whole structure are obviously made by using the 
declared <identif ier> , which syntactically becomes a 
< structure var name> . The way in which parts of the struc- 
ture (its minor structures and terminals) are referenced 
depends on whether the structure is "qualified" or "unqualified" 
(see Section 4.7). 



5.2.1 Unqualified Structures 

If a structure is unqualified, then any part of it, 
either minor structure or terminal, may be referenced by 
using the name of the part as it appears in the <structure 
template> definition. If a minor structure is referenced, 
the name becomes syntactically a <structure var name> . If 
a terminal is 'referenced, then syntactically the name becomes 
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a <5var name>, where § stands for any of the types, arithmetic, 
bit, character, or event, as appropriate to the attributes 
of its definition in the template. 



EXAMPLE : 



STRUCTURE A; 



1 B, 
2 C VECTOR, 
2 .D SCALAR, 

1 E, 
2 H EVENT, 
2 G INTEGER, 

1 H BIT (16) ; 



DECLARE A A- STRUCTURE ,* 
ft 



MINOR_STRUCT 
M = G; . 

• * 

B BIT = H; 



E; 



structure template 



~J unqualified declaration 



references to parts of 
structure A 
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5.2.2 Qualified Structures 



f a structure is qualified, then any ( part of it, 
eithe- inor structure or terminal, is referenced as follows. 
First, die name of the part of the structure is taken. Then 
the "branches" of the structure tree are traversed back from 
it to the "root" or major structure (see Section 4.3). On 
v -ssing through each "fork" or minor structure, the name is 
jfixed with a period and then with the name of that minor 
ructure. This process ends with the prefixing of the major 
ructure name. If a minor structure is being referenced, 
•ae resulting "qualified" name becomes syntactically a 
<structure var name>. If a terminal is referenced, then 
syntactically it becomes a <§var name> , where § stands for 
any of the types, arithmetic, bit, character, or event, 
as appropriate to the attributes of its definition in the 
template. 



EXAMPLE ; 



STRUCTURE A: 

1 B, 
2 C VECTOR, 
2 D SCALAR, 

IE, 
2 H EVENT, 
2 G INTEGER, 

1 H BIT (16) ; 



structure template 



DECLARE Z A- STRUCTURE; 
MiNORjSTRUCT = Z.E; 
M = Z.g.G; 
B BIT = Z.H; 



j qualified declaration 



references to parts of 
structure Z 
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5.3 Subscriptincf 



For the remainder of this Section, unsubscripted 
variable names are denoted syntactically by <§var name>, 
where § stands for any of the types arithmetic, bit, 
character, event, or structure . It is convenient to intro- 
duce the syntactical terms <§var> to denote a subscripted 
or unsubscripted <§var name>, and <variable> to mean any 
type of <§var>. <bit pseudo-var> is a reference to the 
SUBBIT pseudo-variable (see Section 6.5.4). 



SYNTAX: 



GE> 



arith 

bit 

char 

structure 

event 



variables 



: j A § var nama \_ 



^— \$£>— — subscript ~~~\^y — 



variable 



r variable \ 



event var 



bit var 



arith var 



-H 



bit pseudo-var 



char var 



structure var 
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5.3.1 Kinds of Subscripting 

In HAL/S there are three kinds of subscripting which 
may potentially be applied to <§var name>s: .component, array, 
and structure subscripting. 



<component sub> can be applied to simple variables 
and structure terminals which have one or more 
component dimensions (i.e. made up of distinct 
components) . The applicable types are vector, 
matrix, bit and character (e.g. Cg) . 



<array sub> can be applied -to any arithmetic, 
bit, character, and event variables which are 
given array specification in their declaration. 
This includes both simple variables and structure 
•terminals (e.g. I-ig) • 



<structure sub> can be applied to arithmetic, 
bit, character, and event variables which are 
terminals of a structure which has multiple 
copies. It can also be applied to the major and 
minor structure variable names of such a struc- 
ture • 
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SYNTAX: 



( subscript > 



subscript construct 



component 
sub 



3 •<; 



array sub 




KDH 



component 
sub 



structure sub -^ — ( | V-*f — f '. J — 



:omponent 
sub 



LQ 



kih 



array sub 



GM 




v 



component 
sub 
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5.3.1.1 Subscripting Data Types and Arrays of Data Typos . 
Subscripting of an unarrayed vector, matrix, bit or character 
is accomplished by use of the form <componeht sub> and refer- 
ences a single component. Subscripting of an array of 
integers/ scalars, or events is accomplished by use of the 
form <array sub> and references a single data* element (e.g. 

Subscripting of an array of vector, matrix, bit, or 
character type has three forms : 

• a <component sub> will yield an array (of same 
array dimension) of the specified components. 

An array of matrices subscripted with a * for one 

index will yield an array of vectors; an array of 

scalar vectors .vj.ll yield an array of scalars, etc. 
(e.g. [Vlj or [M] 4/3 ) • ' 

• the form <array sub>:* (where the * is optional) ' 
will yield all of the data elements of the speci- 
fied array component (e.g. B = [V] 4 ; ;) 

• the form <array sub>:< component sub> will yield 
the specified element of the specified array, 
(e.g. B = ?^r 4: * /3 ; or C = $fy 4:2 ,3 ; > 

5.3.1.2 Subscripting Unarrayed Structure Terminals . The 
use of the form <structure sub> specifies which structure 
copy is referenced to find the given integer scalar or event 
type structure terminal (e.g. A.B 25 ) . 

If the structure terminal is of vector, matrix, bit 
or character type, then 

• the form <component sub> will yield all of the 
copies (in each structure copy) of the specified 
component. 

• the form <structure sub>; will yield the structure 
terminal of the specified structure. 



• 



the form <structure sub> ; ^component sub> will 
yield the specified component of the structure 
terminal of the specified structure. 
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5 . 3 .1 . 3 Subscripting Arrayed Structure Terminals. Xf the 
structure terminal is of integer, scalar, or event type, 
then : . ' 

• the form <array sub> references the specified 
array element of the terminal of each copy of 
the structure. . ' 



• 



• 



the form <structure sub>; references the arrayed 
structure terminal in the given structure copy. 

the form <structure sub>; <array sub> references 
the specified array element Of the terminal of the 
specified copy of the structure. 

If the structure, terminal is an array of vector, 
matrix, bit, or character type then: 



• 



• 



• 



• 



• 



the form <component sub> references the specified 
component of each array element of the terminal 
of each structure copy. • 

the form <array sub>: references the specified 
array component (i.e. vector, matrix, bit or 
character type) of the terminal of each copy of 
the structure. 

the form <structure sub> ; references the arrayed 
matrix, vector, bit, character data type of the 
terminal of the specified copy of the structure. 

the form <array sub> :<component sub> references 
the specified component of 'the specified array of 
the terminal of each copy of the structure. 

the form <structure sub> ;<componeht sub> references 
the specified component of each array element of 
the terminal of the specified copy of the structure 

the form <structure sub>;<array sub> : references 
the specified array component of the terminal of 
the specified copy of the structure. 



• the form <structure sub>;<array sub>:<c onent sub> 
references the specified component of t. specified 
array of the terminal of the specified copy of the 
structure. 
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EXAMPLES : 

1. M3 4 references the matrix-component in the third row, 
fourth column. 

2. A 2 3 4 references a scalar or integer array element in 
the Second plane, third row, fourth column of array A. 

3. A2 3 4.3 4 references the component in the third row, 
fourth ' column of the matrix located in the second plane, 
third row, fourth column of the array, A, 

4. BIT 16 (A) references the 16th bit in the bit representation 
of A. 

» ■ . 

5. TEXT ft references the 8th character in the string. 



L 8 

6. M 3 4 . references the matrix in the A third row, fourth 
column of the array of matrices, [M] . 

7. STRUCTURE A: 

IB, 

2 C ARRAY (4, 4) MATRIX (3, 3), 

2 D INTEGER, 
1 E, 

2 G VECT0R(3) , 
1 F BIT(l); 
DECLARE A A- STRUCTURE (50) ; 

The following examples refer to the above structure template 
and declaration. 

a * C 8;|:l,2 

This represents the, scalar component in the first row, 
second column of the matrix which occupies the 4,2 
position in the array C. This array is in the 8th copy 
of A. 

b. {G) 2 

This represents the second component of the vector G 
in all copies of A. 



53-c 

INTERMETRICS INCORPORATED • 701 CONCORD AVENUE • CAMBRIDGE, MASSACHUSETTS 02130 • (G17) GG1-1040 



c. F 25 ; 

This represents the single 1-bit, bit-string in the 
25th copy of A. 

d ' {l ^ } 23;4 f *: 

This represents the array of all of the matrices 
(specified by *, see Section 5.3.2) in the "4th row" 
of the array C, in the 23rd copy of A, 
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5.3.2 Forms of Subscripting 

A <structure sub> / <array sub> , or <component sub> 
consists of a series of subscript expressions separated 
by commas. Each subscript corresponds to the particular 
structure, array or component dimension to which 
it is attached. The form <sub exp> specifies the index 
of one component, array element, or structure copy to be 
selected. The TO phrase may be used to reference (or parti- 
tion) a set of elements by specifying the lower and upper 
index limits respectively. Similarly, the AT phrase may be 
used to reference a set of elements by specifying the size 
(or length) of the set, and the lower index limit respectively. 
The use of a number sign (#) results in the value of the upper 
limit of the particular index. 

The use of the * indicates "all -of a particular index" 
and can be used to establish a cross section of a matrix 
or an array . 
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SYNTAX: 



component, array, and structure subscript* 



jtomponont\ 



( 



array 
tub 



) 



/ structure ) 




/sub exp \ 



<D 



<f*.0 



- — : v - ~ i\>/ 



arith exp 



tub exp 



-©- 



sub exp 



sub exp 



<*> 



{L.U^i 



■n 



ft 



-©-©- 



arith exp *> 






feUi.v) 



ft 



^■vjUl-V-l 



ft»' 
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EXAMPLES : 



M 4 AT 5, 4 AT 7 



M *,4 



[v] 2 *. 

B 5 TO 10- 
lAl .££lsQ=3&3>2} , 1 TO 3:4 TO # 



55 

INTERMETniCS INCORPORATED • 701 CONCORD AVCNUt • CAMBRIDGE, MASSACHUSETTS 02130 • (017) 061-1040 



5.3.3 The Arrayness of Variables and Expressions 

A <§var name> which is a simple variable is said to 
be "arrayed", or to possess "arrayness" if an array speci- 
fication appears in its declaration. The number of dimen- 
sions of arrayness is the number of dimensions given in the 
array specification. 

A <§var name> which is a structure terminal is said 
to be arrayed or to possess arrayness if either or both of 
the following hold: 

• an array specification appears in its declaration 
in a structure template. 

• the structure of which <§var name> is a terminal 
has multiple .copies. 

The number of dimensions of arrayness is the sum of the 
dimensions originating from each source. 

Appending structure or array subscripting to a 
<§var name> may reduce the number and size of array dimensions 
of the resulting <§var>. 

The arrayness of HAL/S expressions originates from 
that of their operands, and thus from the <§var>s appearing 
in them. Although the forms of subscript distinguish 
between array dimensions and structure copies, no 
distinction is made between them as far as arrayness matching 
is concerned. 



EXAMPLE: STRUCTURE Z: 

1 B ARRAY (5) , 
1 C SCALAR; 
DECLARE' A Z_STRUCTURE (10) , 
C ARRAY (10 ,5) ; 



fC} = [A.«3~ * [Gfj /* ARRAYNESS IS 10,5 */ 
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if 



.- z 



5.4 The Natural Sequence of Elements 



t 



jjj, 1 t,wi 



<-• 



There are several kinds of operations in the HAL/S 
language which require <§var>s with multiple components, 
array elements, and structure copies, and also <expression>s , 
to be unraveled into a linear array or string of data values. 
The reverse process of "reraveling" a linear array or string 
also occurs. The two major occurrences are in I/O (see 
Section 10) and conversion functions (see Section 6.5). The 
order of unraveling is called the "natural sequence". 

5.4.1 The Natural Sequence of Major and Minor Structures 

• Each copy of the major or minor structure is 
unraveled in 'turn, in order of increasing index. 

(e.g. A.Bi; A.B2; A.B3; etc.) 

• Each structure terminal defined under the major 
or minor structure is unraveled in turn, in order 
of their appearance in the structure template. 

• Each structure terminal is unraveled according to 
the rules given below. 

5.4.2 The Natural Sequence of Simple Variables and Structure 
Terminals 

• If a structure terminal has multiple copies, each 
copy is unraveled in turn, in order of increasing 
index. 

• If the simple variable is arrayed., each arrc*y. 
dimension is unraveled in turn, starting from 
the leftmost defined dimension, and in order of 
increasing index, (e.g. W-^-^ ^ B ~H>2 ^"173 ^272"* 

•Integers, scalars, characters, bits and events are 
considered as having only one component data 
value. 

• Vectors are unraveled component by component, in 
order of increasing index. 

• Matrices are unraveled row by row, in order of 
increasing index. The components of each row are 
unraveled in turn, in order of increasing index. 
This process is similar to that for arrays above. 
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6.0 DATA MANIPULATION AND EXPRESSIONS 



An expression is an algorithm used for computing a 
value. In HAL/S, expressions are formed by combining operators 
with operands in a well-defined manner. Operands generally 
are variables, literals, other expressions, and functions. 
The type of an expression is the type of its result, which is 
not necessarily the same as the types of its operands. Expres- 
sions are divided into three major classes according to their 
usage: regular expressions, conditional expressions, and event 
expressions. 



6.1 



Regular Expressions 



Regular expressions comprise arithmetic expressions, 
bit expressions, and character expressions, together with 
structure variables. An <expression> can appear in an assign- 
ment, statement, as an input argument of a procedure or function 
block, or in a WRITE statement. 



SYNTAX: 



• 






expression 








/expression > 








^ 










arith exp 






V 


L 


















bit exp 




s 






H 






char exp 












structure var 


* 
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6.1.1 Arithmetic Expressions 

An <arith e'xp> is a sequence of <arith operand >s 
(see Section"?!."?) separated by arithmetic operators, 
and possibly preceded by a unary plus or minus,. 

ThP following table summarizes the precedence 
(i.e. oraer of ^ration) rules for arithmetio operators 



OPERATOR 


PRECEDENCE 


** 


1 (FIRST) 


<> 


2 


* 


3 


• 


4 


/ 
+ #- 


5 

.6 (LAST) 



If the two operations with the same precedence follow 
each other then the following rules apply: 

• operators **, / are evaluated right- to-left; 

• oDerators <> are evaluated so as to minimize the 
?otal number of elemental multiplications required; 

• all other operators are evaluated left-to-right. 

„■;„ r of th e appendix summarizes the results of a given 
operator applied ?o all possible types of <arith operand>s. 
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SYNTAX: 



arithmatic expression 



,*— —I •{■ j 'i 




EXAMPLES: 




I + 


J - (K+2) 


M • 


(M*N) 


* 
(M • 


* 42 



A/B C 



INTEGER EXPRESSION: I,J,K INTEGERS 

VECTOR EXPRESSION 

SCALAR EXPRESSION: R,P SCALARS 

MATRIX EXPRESSION 

MULTIPLY DONE BEFORE DIVIDE 
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6.1.2 Bit Expressions 

• A <bit exp> is a sequence of <bit operand>s (see 
Section 6.1.4.2) separated by bit operators whose order of 
evaluation is : 



OPERATION 


OPERATOR 


PRECEDENCE 


Catenation 

Logical Intersection 

Logical Union 


CAT, | | 
AND, & 
OR, | 


1 (FIRST) 

2 

3 (LAST) 



If two operations with the same precedence follow each 
other, they are evaluated from left-to-right. 



SYNTAX: 



bit expression 



/ bit exp j 



3 T 



bit operand 



— ( AND J—\ 

— GD — 



s f 



<>} 



OR 



— /catV 



EXAMPLES : 



B & C || D 
A OR (B AND C) 
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6.1.3 Character Expressions 

A <char exp> is a sequence of operands separated by 
the operators ; CAT or J } . Each operand may be a <char operand> 
(see Section 6.1.4.3) or an integer or scalar <arith exp> . 
The sequence of catenations is evaluated from left-to-right. 



SYNTAX: 









character « 


xpression 






/char 


exp\ 






v ■ _ 






(T\ 












m "" at 










W 


r 








^ arithexp * 


—J L_/ C AT y 



















EXAMPLES : 



Q 1 1 I 1 1 QQQ; 



TEXT| j 'HELP* I I (A/S) I I (B| |C) 
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6.1.4 Regular Expression Operands 

Operands of the appropriate type are used with 
operators to form regular arithmetic, bit or character 
expressions. These operands include <arith operand>s, 
<bit operand>s / and <char operand>s. 

6.1.4.1 Arithmetic Operands . An <arith operand> may be 
an arithmetic variable, an arithmetic expression enclosed . 
in parenthesis, a <normal function> of the appropriate 
type, an <arith conversion> function, or a literal *number> 
Precision may be specified by a <precision> subscript (see 
Section 6.7) . 



SYNTAX : 









arithmetic o 


jerand 


/ arith \ 
\ operand / 




arith var 
























r<0" 


arith exp 


-O- 






f 




> 




L. *, .i fc J ■■■ 


-) •■> 










'."V 










normal function 


, ,,_J 


4> 


precision 


-<&J 


















■ 


arith conversion 


-* 





EXAMPLE : 



(A+B) gDOUBLE 
SIN(X) 

IA] 1 TO 5 
INTEGER (X 2 ) 
36.047 
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6.1.4.2 Bit Operands . — A < bit operand* may be a <bit var>, 
a <bit exp> enclosed in parenthesis/ a <bit literal>, a 
<nor~al function* of bit type, a <bit conversion> function, 
or a <bit pseudo-var> . In real time programming, a <bit 
operar.d> may be an <event var> or a <process-event name> 
(see Section 8.9), Any form of <bit operand* may be prefaced 
by NO? or "* , causing its logical complement. 



SYNTAX: 





b 
r~ ( NOT J — \ 


it operand 










/ bit \ 

\ operand 1 








r{^~ 


bit exp 


-Gh 














bit var 


I 


~i ■' 


— * f *\ 
















event var 




V -1 l 






— ( 








>- 


Drocess-event name 










normal function 














bit conversion 














bit pseudo-var 

























EXAMPLES : 



BIT'llOlOllO' 

...... 

"B 

BIT (A) 
(A|C) 

C l TO 8 
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6.1.4.3 Character Operands . A <char operand> may be a 
<char var>, a <char exp> enclosed in parenthesis, a <cnar 
literal>, a <normal function> of character type, or a 
<char conversion> function. 



SYNTAX : 



character operand 



/ char \ 
V operand / 




char exp 



char var 




normal function 



-f char literal V 



char conversion 



EXAMPLE ; 



•DELTA' 

(STATUS | | 'O.K. ') 

CHARACTER (1+ J) 
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6.1.5 Array Properties of Expressions 

Any regular expression may have an array property 
by virtue of possessing one or more arrayed operands. The 
evaluation of an arrayed regular expression implies an 
element-by-element evaluation of the expression. If only 
one operand is arrayed, then evaluation of the operation 
using the unar rayed operand and each element of the arrayed 
operand is implied. If more than one operand is an array of 
equal dimension, evaluation of the operation for each of the 
corresponding elements is implied. In all cases, the result 
is an array of the same, dimension as the operand array. 
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6«2 Conditional Expressions 

A <condition> is a sequence of Con ditional operand>s 
separated by logical operators, whose order of 'evaluation is 



OPERATION OPERATOR PRECEDENCE 

Logical Intersection AND, & 1 (FIRST) 

Logical Union OR, | 2 (LAST) 

SYNTAX: 



\condition ) 



conditional expression 



conditional operand 



/conditional 
\ operand / 



-H 



- ^AND J - 

-o- 



— Tor J — ' 



conditional operand 



] comparison 



<5> 




NOT 



V 



<lH 



condition 



EXAMPLES : 



"'(A>B) | (A>C) 
(A<=B) 



X>100 AND "(y<3 OR Z>2) 
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6.2.1 Arithmetic Comparisons 

An arithmetic <cOmparison> is a comparison between 
two <arith exp>s whose types must match (except for mixed 
integer and scalar operands when the integer operand is 
converted to scalar) . Valid combinations of types of 
<arith exp>s for comparison may be found in Appendix C. 
If the operands are vectors or matrices , the operator must 
be =, "*«, NOT=, and is compared element-by-element. 



SYNTAX : 



arithmetic comparison 



f — C not "0 — \ 



comparison 



) 



arith exp 



-H- 



"1 < 



NOT > 



1> 



-O- 



1 



^ — /'not =\— 



€> 



arith exp 



■ -j <«= \ — ■ 



EXAMPLES : 



I>J 



(M+N) NOT <36 



K 



* 
L 



I <= (A+P«V) 
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6.2.2 Bit Comparisons 

A bit comparison is a-comparison between two <bit exp>s 
which are said to be equal if they have identical bit 
patterns. If the operands have different lengths, the 
shorter operand is left padded with binary zeros to match 
the length of the longer <bit exp> . 



SYNTAX: 




EXAMPLES : 



B^ = BIN' 110 



D = E 
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6.2.3 Character Comparisons 

A character comparison is a comparison between two 
<char exp>s. If the operands have different lengths, the - 
<char exp> of shorter length is right padded with blanks to 
match the length of the longer operand. 



SYNTAX: 




EXAMPLES : 



C='A 



• » i 



S - * ' STOP ' 
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6.2.4 Structure Comparisons 

A structure comparison is a comparison between two 
<structure var>s whose tree- organizations are identical _ ■■. 
in all respects and whose number of copies are 'equal. If tne 
<comparison> operator is =, the result is TRUE only |f it is 
TRUE for each copy; if the <comparison> operator is = or 
NOT=, the result is TRUE if it is TRUE for at least one copy. 



SYNTAX : 



(comparison) 



structure comparison 



structure var 




*■ — (not O — '•* 



structure var 



6.2.5 Comparisons Between Arrayed Operands 

A <comparison> of any one of the forms described may 
have arrayed operands, although the <comparison> operators 
are restricted to =, "= and NOT=. The <comparison> is done 
on an element-by-element basis producing an unarrayed result. 
If the operator is = then the result is TRUE only if it is _ 
TRUE for all elements of the <comparison> ; if the operator is 
-*= or NOT= then the result is TRUE if it is TRUE for at 
least one element of the <comparlscn> . 
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6.3 



Event Expressions 



An event expression, used in real time programming 
(see Section 8.) , is an unarrayed sequence of <event operand>s 
separated by a subset of bit operators. The order of evalua- 
tion of each operation is dictated by operator precedence: 



OPERATION OPERATOR PRECEDENCE 

Logical Intersection AND, & 1 (FIRST) 

Logical Union OR, | 2 (LAST) 



If two successive operations have equal precedence, 
they are evaluated from left-to-right. The <event operand> 
may be optionally prefaced by the logical complementing 
operators NOT or ~* . 



SYNTAX : 



event expression 



( event exp \ 



event operand 



<i>-n 



YandV 



7 \ 



L_(^)_J 



event operand 




EXAMPLES : 



ALPHA OR BETA 
" , (A&B) 
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6.4 Normal Functions 

Section 6.1.1 through 6.1.3 have made reference to 
normal functions which are invoked by appearing as an operand 
in an expression. Normal functions fall into t^wo classes: 

"built-in" functions named by <label> and defined 
as part of the HAL/S language (see Appendix B for 
a list of these functions) ; 

• "user-defined" functions named by <label> and 
defined by the presence of <function block>s in 
< compilations . 

Each <expression> or "input argument" of a normal 
function must match the corresponding input parameter of 
the function definition in type, terminal size, structure 
tree organization, etc. 

If a user-defined function is invoked before it is 
defined by its <f unction block>, the name and type of the 
function must be declared at the beginning of the containing 
name scope. 



SYNTAX : 



/ normal \ 
\function / 



norma! function 



■/labal \ 




expression 



h£J 



O 



EXAMPLES : 



SIN(2X) 
UNIT(V) • 
USER COS (A) 
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6.5 Explicit Type Conversions 

HAL/S contains a comprehensive set of function-like 
explicit conversions (see Appendix D.) some of which, called 
shaping functions, also have the property of being able to 
shape lists of arguments into arrays of arbitrary dimensions. 
HAL/S contains conversion functions to integer, scalar, vector, 
matrix, bit, and character types. 

6.5.1 Arithmetic Conversion Function 

The keyword INTEGER, SCALAR, VECTOR, or MATRIX gives 
the result type of the conversion. A <precision> specifier 
gives the precision of the result while a <subscript> speci- 
fier gives its dimensions. Any <expression>. may be preceded 
by the phrase <arith exp># which denotes the number of times 
the <expression> is to be used in generating the result of 
the conversion. 

If INTEGER or SCALAR are subscripted, the <subscript>s 
denote the size of each array dimension produced. If there 
is no subscript, and if there is only one unrepeated arrayed 
argument, a linear (1-dimensional) array is produced. In 
all cases, INTEGER and SCALAR may have arguments of any type 
except structure. 

A VECTOR <subscript> is an <arith exp> specifying 
the length of the resultant vector.. If no subscript 
is specified, VECTOR produces a 3-vector result. 

A MATKIX subscript has the form: <arith exp>, 
<arith exp> denoting the row and column dimensions 
respectively of the matrix result. If no subscript is 
specified, MATRIX produces a 3-by-3 matrix result. 

VECTOR and MATRIX may have arguments of scalar, vector, 
and matrix type only. 
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SYNTAX: 



/ arith \ 
V conversion / 



arithmetic conversion function 




VECTOR 



(matrix) 




SCALAR 



INTEGER 



> 



<!> 



^- arith exo 




precision 



o 




subscript 




M y 




expression 



<L> 



EXAMPLES : 



INTEGER 2 (4*I+J) 
SCALAR(A,B,C,15#D) 
VECTOR,, , , ( A , O , B , E) 
MATRIX^ 2 ( [A] ) 
VECTOR (X,Y,Z) 



76 



INTERMETRICS INCORPORATED • 701 CONCORD AVCNUE > CAMBRIDGE, MASSACHUSETTS 02130 • (61/) 0G1-1B4G 



6.S.2 The Bit Conversion Function 

BIT converts an argument of integer, scalar, bit, 
or character type argument to a bit result. If the argument 
is arrayed, the conversion result is identically arrayed. 
<subscript> represents terminal subscripting upon the results 
of -he conversion. 

<radix> has the following possible forms: 



@HEX 
@DEC 
@OCT 
@BIN 



(hexadecimal digits) 
(decimal digits) 
(octal digits) 
(binary digits) 



The <char exp> consists of the legal digits listed to 
the right of each radix form above. The conversion generates 
binary representation of <char exp> . 



SYNTAX : 



\ conversion / 



bit conversion function 



»— ^S^— radix — <(m^~ C { J—\ char exp 



■(^y 



rdH 



expression 



^"V>\— subscript — ^mV- 1 



<D- 



EXA2-CPLES : 



BIT(I+J) 

BIT ^S^1 TO 8 (A) 
BIT @OCT ( ' 657,) 
BIT @HEX ( ' F2D '> 
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6.5.3 The Character Conversion Function 



CHARACTER converts an integer, scalar, bit or character 
type argument to a character result. If the argument is 
arrayed, the conversion result is identically arrayed. 
<subscript> represents terminal subscripting upon the results 
of the conversion. 

<radix> has the following possible forms: 

@HEX (hexadecimal string result) 



@DEC 
60CT 
@BIN 



(decimal string result) 
(octal string result) 
(binary string result) 



The value of <bit exp> is converted to the character 
string representation indicated above after left padding the 
value with binary zeroes as required. 



SYNTAX : 



\ conversion/ 



character conversion function 



r4>~ 



-/characterV 



radix 







bit exp 



subscript 



expression 



<1^ 



ipt — <m\-' 



EXAMPLES : 



CHARACTER @HEX (B) 
CHARACTER (A SCALAR) 



CHARACTER @DEC (4567) 
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6.5.4 The SUBBIT Pseudo- Variable 

The SUBBIT pseudo-variable allows access to other 
data types without conversion. It may appear in an assign- 
ment context with a <variable> argument, or as part of an 
<expression> as an operand of a <bit exp> . <subscript> repre- 
sents terminal subscripting of the pseudo-variable. 



SYNTAX : 



\ pseudo-vary 



SUBBIT pseudo-variabia 



-(subbitV 



Ki> 



>—\Sy — subscript — '^V - ^ 



yariable 



expression 



<>> 



• * 



EXAMPLE 



SUBBIT 5 T0 g (I) = H I | A ; 



C = SUBBI^ TQ 8 (A) ; 
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6.6 Explicit Precision Conversion 

If <precision> is a subscript of an <arith operand>, 
a conversion to the precision specified takes place. If 
<precision> is a subscript of an <arith conversion> then 
the conversion result has the indicated precision. In 
referring to integer type, SINGLE implies a halfword and 
DOUBLE implies a fullword. 

SYNTAX: 



/precision \ 



precision specifier 




SINGLE 



DOUBLE 




EXAMPLES : 



A " E ©SINGLE + 



( ( ^" fC @DOUBLE ) D) ©SINGLE 
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7.0 EXECUTABLE STATEMENTS 



Executable statements are the building blocks of the 
HAL/S language. They include assignment, flow control, real 
time programming, error recovery, and input/output statements. 
Syntactically any statement of the- above types is designated by 
the term <statement>. The manner of a <statement> *s integration 
into the general organization of a HAL/S compilation was 
discussed in Section 3. 



7.1 



Basic Statement Definition 



All forms of <statement> except- the IF statement fall 
into the category of a <basic statement> . Not all of the 
<basic statement>s are described in this Section. Real time 
programming statements are described in Section 8., error 
recovery in Section 9., and input/output in Section 10. 



SYNTAX: 



basic statement 



^statement) 



basic statement 
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7.2 



The IF Statement 



The IF statement provides for the conditional execution 
of segments of HAL/S code. If the ELSE clause is present, then 
a second nested IF statement cannot appear preceding the key- 
word ELSE. 



SYNTAX : 



/ itatement \ 



— — — -*r 



IF statement 




condition 



-(then)— — 



■ — (bit exp \— ' 



statement 



basic statement 



— (E LSE j — statement 



J 



EXAMPLES : 



IF J>0 THEN K-l; 
ELSE K=2; 

ABLE: IF K>=J THEN K=J-1> 

ELSE CALL TIME (V,T) ASSIGN (W) ; 



* * 



IF A=B AND M=N THEN DO; 



P=Q+1 ', 

2 

D=E Z > 



END; 
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7.3. The Assignment Statement 

The assignment statement is used to change the current 
value of a variable or a list of variables to that of an 
expression evaluated in the statement. In general, the 
dimensionality of <expression>s and <variable>s must match. 

Execution is as follows: 

• subscript expressions of the left-hand side are 
evaluated 

• the <expression> is evaluated 

• the values of the <variable>s on the left hand 
side are changed 



SYNTAX : 



/ basic \ 
^statement ) 



assignment statement 




variable 



■G> 




expression 



YQy- 



EXAMPLES : ETA , KAPPA=LAMBD A+ 1 ; 

SUM_ARRAY 2 ^ = VALUE; 



V = M*N/X 2 ; 

D = VECTOR (A,B,C,D) ; /* SHAPING FUNCTION */ 
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7.4 



The CALL Statement 



The CALL statement is used to invoke execution of a 
procedure. Each <expression> is an "input argument , while 
each of the <variable>s is an "assign argument? whose values 
may be changed by the called procedure. 



SYNTAX: 



/ basic \ 
^statement/ 



CALL statement 



Ki> 



O^ 




expression 



♦^ ( CALL >— ( label >—< 



label 






ASSIGN 



XJ> 



variable 



■o- 



■dP 




<i> 



EXAMPLE: ' CALL EPSILON ASSIGN (KAPPA ) ; 

ABLE: CALL GAMMA (ALPHA) ASSIGN (BETA, SIGMA) ; 
CALL PHI (A+B,X 2 ,C) ASSIGN (T,U ,V> ; 
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7.5 



The RETURN Statement 



The RETURN statement is used to cause return of execu- 
tion from a task, program, procedure, or function block. 
The <expression> may only appear in a < function block> RETURN 
statement. 



SYNTAX : 



/ basic \ 
^.statement/ 



RETURN statement 




-{returnV 



expression 



<1> 



EXAMPLE: IF X>0 THEN RETURN; /* PROCEDURE RETURN */ 
DONE: RETURN; /* PROCEDURE RETURN */ 

IF X>0 THEN RETURN X 3 ; /* FUNCTION RETURNS */ 
ELSE RETURN -X 3 ; 



DONE: RETURN A+B; 



/* . FUNCTION RETURN */ 
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7.6 The DO... END Statement Group 

The DO. . .END statement group is a way of grouping a 
sequence of <statement>s together so that they -collectively 
look like a single <basic statements Additionally, some 
forms of DO... END group provide .a means of executing a 
feqSence of <statement?s either iteratively, or conditionally, 
or both. 



SYNTAX : 



DO . . . END statement group 



/ basic \ 
^statement/ 



procedure block 



function block — - 



task block 



do statement 



update block 



end statement 



statement 



7.6.1 The Simple DO Statement 

The simple DO statement merely indicates that the 
following sequence of <statement>s comprising the group 
Is to be viewed as a single <basic statement . The sequence 
is executed once only. 
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SYNTAX: 




EXAMPLE: ABLE: IF Z>SIG THEN 

DO; 

• ALPHA=1; 
BETA=ALPHA/3 ; 
END? 
ELSE DO; 

Z=Z/SIG; 
SIG=SIG+1; 
END; 



7.6.2 The DO CASE Statement 

The DO CASE statement indicates that if the value of 
<arith exp> is an integer K, then of the following sequence 
of <statement>s comprising the group, the K.tn statement of 
the qroup is executed. If K is either less than or equal to 
zero, or greater than the number of < statements in the group, 
then the <statement> following the ELSE keyword is executed; 
if there is no ELSE clause then a run time error occurs for 
such an invalid K-value. 
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SYNTAX : 



\statement / 



label 



DO CASE statement 




-(po case\- 



arith exp 




ELSE 



7=J 

- statement — ' ' 



<^ 



EXAMPLES : 



ALPHA : DO CASE J- 1 ; 

BETA=BETA+TAU ; 
BETA=BETA/FACTOR+TAU : ; 
BETA=BETA/F ACTOR ; 
END; 



DO CASE N-3 ELSE GO TO ERRORl; 
SUM- VALUE+TAX ; 
DIFF=TAX; 

DO^; 

'.TOTAL=YALU E +TAX- DI SCQUNT ; 

CALL BILLER (VALUE) ; 
CALL SUMMARY (TAX) ; 
END; 
END; 
ERRORl; IF VALUE>=0 THEN GO TO CONTINUE; 
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7.6.3 The DO WHILE and DO UNTIL Statements 



The DO WHILE statement causes the group of <statement>s 
to be repeatedly executed until the value of <condition> or 
<bit exp> becomes false. The value is tested prior to each 
cycle of execution. 

The DO UNTIL statement causes the group of <statement>s 
to be repeatedly executed until the value of <condition> or 
<bit exp> becomes true. The value is not tested prior to 
the first cycle of execution, but is tested before all subse- 
quent cycles of execution* 



SYNTAX : 



DO WHILE and UNTIL statement* 



(statement > 




/p > W-{ vVHILE^ )- 



JJ 



condition 



bit exp 




UNTIL 
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EXAMPLES: DO WHILE I>0 ; 
J=0; 

* 

VALUE=VALUE/I ; 
ENDj 



EQUIVALENTLY: DO UNTIL I<=0; 
J=0; 

• ■ 

VALUE=VALUE/I ; 
END EQUIVALENTLY * 

DO WHILE A&{B|C) ; 

- • 
* - 

END; 



7. 6. 4 The Discrete DO FOR Statement 

The discrete DO FOR statement causes execution of 
the sequence of <statement>s in a group once for each of 
a list of values of a "loop variable". Prior to each cycle 
of execution, the next <arith exp> in the list is evaluated 
and assigned to the loop variable. The presence of a WHILE 
or UNTIL clause is used to cause execution to be dependent 
on some condition being satisfied as in Section 7.6.3. 
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SYNTAX: 



discrete DO FOR statement 



\ statement / 




rDO FOR J — arith var — f» J 



WHILE 



> 



r — *7 



UNTIL 



V 



condition 



bit exp 



arith 




<i> 



EXAMPLE : 



DO FOR 1=10,20,30 WHILE J>0; 
NEWVAL=OLDVAL/I+INCRMT ; 



J+NEWVAL; 



END; 
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7.6.5 The iterative DO FOR"Stiatement 

The iterative DO FOR statement is similar in intent 
and operation to the discrete DO FOR statement, except that 
the list of values that the loop variable may take on is 
replaced by an initial value, a final value, and an optional 
increment (the default value is 1) . 



SYNTAX: 



Iterative DO FOR statement 



\ statement I 




/DO FOrV- I arith var j— (*j— 



arith exp 



label 



arithcxp 




BY 



arith exp 



rO 



— (WHILE j — , ■ y - i condi 

■ — (until\— J ^- 



bit exp 
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EXAMPLE : 

EQUIVALENT JK)_LAST_EX: DO FOR 1=10 TO 30 BY 10 UNTIL J<=0; 
NEWVAL=OLDVAL/I+INCRMT; 

* 

J=NEWVAL; 
• END EQUIVALENT_TO_LAST_EX ; 

DO FOR J=-30 TO 50 BY INCREMENT; 



END; 



7.6.6 The END Statement 

The END statement closes a DO. . .END statement group 
If the optional <label> follows the END keyword, then it 
must match the label on the <do statement* opening the 
DO . . . END group . 



SYNTAX : 




EXAMPLE : 



LOOP: DO FOR. . . ; 

■ • 

FINISH: END LOOP; 
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7.7 



Other Basic Statements 



• The GO TO <label> causes a branch in execution to 
an executable statement bearing the sarr.e <label>. 

• The "null" statement has no effect at run time. 

• The EXIT statement is legal only inside a DO... END 
group where it causes a branch to the first execu- 
table statement after the end of the DO... END group. 

• The REPEAT statement is legal only inside a DO... END 
group opened with a DO FOR, DO WHILE or DO UNTIL 
statement. It causes immediate abandonment of the 
current cycle of execution of the innermost such 
group. 



SYNTAX: 



< 



basic 
statements 



GO TO, "null" EXIT and REPEAT statements 





GO TO j — ( label 




/ EXIT \ ■ 

■/repeatJ r- 



<D- 



EXAMPLES : 



DO FOR. . . ; 



ABLE: IF X>0 THEN EXIT; 

ELSE REPEAT; 
IF Y<10 THEN GO TO ABLE; 
END; 
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8.0 REAL TIME ■ ITROL 



HAL/S contains a comprehensive facility. for creating 
a multi-processing job structure in a real time programming 
environment. At run time a Real Time Executive (RTE) controls 
the execution of processes held in a process queue. HAL/S 
contains statements which can schedule processes (enter them 
in the process queue) , terminate them (remove them from the 
process queue) , and otherwise direct the RTE in its controll- 
ing function. HAL/S also contains means whereby the use of 
data by more than one process at a time is managed in a safe, 
protected manner at specific, localized points within the 
processes. 

8.1 Real Time Processes and the RTE 

In HAL/S, a program or task block may be scheduled 
as a process and placed in the process queue. Although the 
process created is given the same name as the program or 
task, it is important to distinguish the static program 
or task block from the dynamic program or task process created 
Two processes are actually involved in the creation of a 
process: the scheduling process, or "father"; and the 
scheduled process , or "son" . l 



8 . 2 Timing Considerations 

In the HAL/S system, the RTE accesses a clock measur- 
ing elapsed time ( "RTE-clock" time). Time is measured in 
Machine Units (MU) whose correspondence with physical time 



1 except of course for the first or "primal" process which 
must be created by the RTE itself. 
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is implementation dependent. HAL/S 

contains several instances of timing expressions which in 

effect make reference to the RTE-clock. 



8.3 The SCHEDULE Statement 

The SCHEDULE statement is used to request initiation 
of a program or task 

a) at a specific time (AT<arith exp>) 

b) in an incremental time (IN<arith exp>) 

c) on an event expression value of TRUE (ON<event exp>) 

The initiation priority is explicitly set by use of 
the phrase PRIORITY (<arith exp>) . If INDEPENDENT is speci- 
fied, the scheduled program or task can continue in an active 
(executing) state even after the scheduling block has been 
terminated (although a task-son can never be independent of 
its program- father) . 

There are two forms of the SCHEDULE statement: the 
simple SCHEDULE statement and the cyclic SCHEDULE statement. 

8.3.1 The Simple SCHEDULE Statement 

The simple SCHEDULE statement initiates a program or 
task only once. Initiation will not occur if the value of 
the <arith exp> to the right of the keyword UNTIL is less 
than the RTE-clock time specified for initiation. Similarly, 
initiation will not occur if the value of the <event exp> to 
the right of" the keyword WHILE is FALSE upcr. execution of 
the SCHEDULE statement or at any time before the process is 
initiated. The clause UNTIL <event exp> has no effect on a 
simple SCHEDULE statement. 
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SYNTAX: 



basic 
statement 



;r\ 



Simple SCHEDULE Statement 




^SCHEDULEV-NabclV 



>—( AT J art 

^/iNJ 



arith exp 



arith exp 






L (™yA 



event exp 



PRIORITY 



XlH 



arith exp 




/-"(TndependentV^ 



^--/WHILEJ — 






event exp 



-/until)- 



h^— an 
>— ari 



arith exp 



arith exp 



<D- 



EXAMPLES : 



SCHEDULE IOTA; 

SCHEDULE RADAR ON R_RUPT OR C_RUPT PRIORITY (HIGH) ; 

SCHEDULE TRACK AT 15; 

SCHEDULE TRACK ON TRACK FLAG UNTIL 15; 
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8.3.2 The Cyclic SCHEDULE Statement 

-The cyclic SCHEDULE statement contains a REPEAT 
phrase which causes the RTE to cyclically execute the process 
as long as one of the following holds: 

a) UNTIL <arith exp> is greater than the RTE-clock time. 

b) UNTIL <event exp> is evaluated to be FALSE. 

c) WHILE <event exp> is evaluated to be TRUE. 

These evaluations are made prior to each cycle, but 
UNTIL <event exp> is not evaluated until the second and 
subsequent cycles, ' 

To cause a fixed RTE-clock time delay between the 
completion of the previous and the beginning of the next 
cycle, the qualifier AFTER <arith exp> is used. To cause 
the beginning of successive cycles of execution to" be 
separated by a fixed RTE-clock time delay, the qualifier 
EVERY <arith exp> is used. 



SYNTAX : 



basic 
statement 



The Cyclic SCHEDULE Statement 



** ' 'I — ^ 



Schedule 



rWrabelY 



arith exp 



-<5>- 



arith exp 



event exp 



^-(pRIORITyV- \0~ a r 'f>exp 



I^ndepende.\tV\ 




^-/wHIL£\-|ev5nt exp 



fcr 



r~*\ 



,-/aFTER\_ arith exp 



^-(V)-{repeat\ 



y 



v- arith 



ati'.r. exp 



exp 



<D- 



EVERY)— arith exp i-' 
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EXAMPLES : 



SCHEDULE DELTA INDEPENDENT, REPEAT EVERY 15.9 
UNTIL 75.9; 

SCHEDULE STEERING AT TIG-5 PRI0RITY<6), REPEAT 
EVERY 2 WHILE ENG ON; 



8.4 The CANCEL Statement 

When a CANCEL statement is used, if the process is 
non-cyclic no action is taken. If the process is cyclic, 
then the process is cancelled at the end of the current 
cycle of execution after possibly waiting for any dependent 
sons to terminate. 



SYNTAX: 



CANCEL statement 



' basic 
. statement 




— (cancelY 



label 



label 




r-0- 



>\ 



EXAMPLE: 



CLEANJJP: CANCEL ETA,NU; 

IF A&B&C THEN CANCEL TRACK_JOB; 
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8.5 



The TERMINATE Statement 



The termination of a process implies the immediate 
cessation of execution of the process and all f ts ^ e P^f"t p 
sons, and their removal from the process queue. The TERMINATE 
statement is used to direct the RTE to terminate specified 
processes . 



SYNTAX: 



TERMINATE statement 



' basic > 
, statement 



*- •* 




r — (terminate\ 



label 



TERMINATE ) — »* »— r 




label ; 



L^ 



<i> 



EXAMPLE : 



-IMMED STOP: TERMINATE ALPHA, BETA; 



8.6 



The WAIT Statement 



The WAIT statement is used by an active program or 
task to suspend an4 reactivate itself i 

a) at a specific time: WAIT UNTIL <arith exp> 

b) after an incremental time: WAIT <arith exp>. 
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c) upon termination of all dependent sons: WAIT FOR 

d) upon a TRUE value of an event expression evaluated 
at each "event change point" (see Section 8.8): 
WAIT FOR <event exp>. 



SYNTAX: 



/ basic \ 
^statement/ 



WAIT statement 



arith exp 



H^T)— {' ,abel \-' 



•/waitV-*- 



<f°E> 



event exp 



1 — (until) 



arith exp 



<D- 



EXAMPLES i 



NOW: WAIT UNTIL T+7.5; 
WAIT 5; 

WAIT FOR ABLE; 
WAIT FOR; '/* TERMINATION OF DEPENDENT SONS */ 



WAIT FOR "ABLE OR BAKER; 
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8.7 The UPDATE PRIORITY Statement 

The SCHEDULE statement which creates a process can 
also specify the priority of its initiation. At any. time, 
between the scheduling and the termination of the process , 
that priority may be changed to <arith exp> by means of the 
UPDATE PRIORITY statement. UPDATE PRIORITY with no <label> 
specification is used to change the priority of the process 
executing the UPDATE PRIORITY statement. 



SYNTAX : 



UPDATE PRIORITY statement 



/ basic \ 
(statement ) 



^Q-^^J 



4 



UPDATE PRIORITY 



D-i 



>-Tl8bel\J 



(lO J— oritfi exp — \J*J~ 



EXAMPLE: 



UPDATE PRIORITY GAMMA TO 10; 
UDPATE PRIORITY TO K+5; 
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8.8 



Events and the SIGNAL Statement 



At any instant of time the RTE may be viewed as having 
knowledge of all existing events whenever the value of an event 
changes, the RTE senses this "event change point" and may in 
turn perform the evaluation of pending <event exp>s. 

The value of an event variable can be changed by the 
use of the SIGNAL statement. Depending upon the implementation 
and the available computer hardware, event variables shall also 
respond to the external environment (either by activation 
of the SIGNAL statement -or by special operating system provision) 

The operation of the SIGNAL statement is summarized 
as follows: 



type of event 
and initial value 


type of SIGNAL statement 


SIGNAL . . ON 


SIGNAL . . OFF 


SIGNAL . . 


unlatched, FALSE 


■ 


it 

L... 


T 
F 


T 




11, 


T 
F 


t F 


latched, FALSE 


■. 


,- 


T 

F 


T 


t 


T 
F 


t F 


latched, TRUE 




T 
F 


_ .. _.__. m 




F 


t 


' 


.._ ^ 


1 


. 



* The <ev«Jnt Var> is TRUE for a period of time invisible 
to the HAL/S user but long enough to be detectable by 
the RTE. 

NOTE: Li TRUE 
F ~ FALSE 
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SYNTAX: 



/ basic \ 
\ statement / 



SIGNAL statement 



"-(J) — MabelY-' 



■/signal) — 



event var 




bit literal 



<^- 



V 



EXAMPLE: 



SIGNAL IOTA ON; 



8.9 



Process-Events 



Any program or task block may have associated with it 
a so-called "process-event" of the same name. This process- 
event behaves in every way like a latched event except that 
it may not appear in SIGNAL statements. Its purpose is to 
indicate the existence of its associated program or task 
process. If a process of the same name as the process-event 
exists in the process queue, the value of the process-event 
is TRUE, otherwise it is FALSE. 



8.10 Data Sharing and the Update Block 

The update block provides a controlled environment 
for the use of data variables which are shared by two or more 

processes' If controlled sharing of certain variables is 

desired, they must be declared with the LOCKED attribute. 
LOCKED variables may only be used inside update blocks. 
A LOCKED variable appearing inside an update block is said 
to be "changed" within the block if it appears in one or more 
statements which may change its value (the left-hand side 
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' u ' * 



of an assignment for example), it is said to be "referenced" 
if it only appears in contexts other than the above, 

A formal specification of the update block appears in 
Section 3.4. The manner of operation of an update block is 
implementation dependent/ but is such as to provide certain 
safety measures. 
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9.0 ERROR RECOVERY AND CONTROL 



References to so-called 'run time errors 1 have been 
made elsewhere in this document. Such errors arise at execu- 
tion time through the occurrence of abnormal hardware or 
system software conditions. Each HAL/S implementation 
possesses a unique collection of such errors. The errors in 
the collection are said to be "system-defined". In any imple- 
mentation every possible system-defined error is assigned 
a unique positive integer, called the "error code" of that 
error. In addition, a number of other legal error codes not 
assigned to system-defined errors may "exist. These can be 
used by the HAL programmer to create "user-defined" errors. 

At run time an Error Recovery Executive (ERE) senses 
errors, both system-defined and user-defined, and determines 
what course of action to take. HAL/S possesses two error 
recovery and control statements. The ON ERROR statement is 
used to modify the error environment of a process at any time 
during its life. The SEND ERROR statement is used for the 
two-fold purpose of creating user-defined error occurrences, 
and simulation system-defined error occurrences. 



9.1 The ON ERROR Statement 

The ON ERROR statement is used to modify the action 
of the error defined by <number> prevailing in the current 
program, task, procedure, function or update block, in the 
following manner: 

a) the GO TO <label> clause causes the ERE to branch 
to <label> when the specified error occurs. 

b) the IGNORE clause allows execution as if the error 
had not occurred. 

c) the SYSTEM clause causes the ERE to take standard 
system recovery action. 

GO TO and/or IGNORE action may not be permitted for 
some errors. 
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SYNTAX: 



ON ERROR iutsm«nt 



/ ba»ic \ 
Vitatament / 



«. *r— (on ERFOR\-<^)>-Ymimb«A—<^^ 




label, 




<D- 



EXAMPLES : 



ERRONEOUS: ON ERRORg IGNORE; 



0N'eRR0R 27 GO TO RECOVERY; 



9.2 



The SEND ERROR Statement 



The SEND ERROR statement is used to announce the error 
condition defined by <number> to the ERE. If <number> 
corresponds to a system defined error, then that error is said 
to be simulated by the ERE. The action of the ERE is dictated by 
the error environment prevailing, at the time of execution of 

the SEND ERROR statement. 
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SYNTAX : 




EXAMPLE: TEST_CONDITION: IF- ERRJFLAG THEN SEND ERROR^; 
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10.0 INPUT/OUTPUT STATEMENTS 



The HAL/S language provides for two forms of I/O: 
sequential I/O with conversion to and from an external 
character string representation; and random-access record- 
oriented I/O. 

All HAL/S I/O is directed to one of a number of input/ 
output "channels". These channels are the means used to 
interface HAL/S software with external devices in a run time 
environment. In any implementation each channel is assigned 
a unique unsigned integer identification number. 

10.1 Sequential I/O Statements 

All sequential I/O in HAL/S is to or from character- 
oriented files. HAL/S pictures these file's as consisting 
of lines of character data similar to a series of printed 
lines or punched cards. An "unpaged" file simply consists 
of an unbroken series of such lines. In a "paged" file the 
lines are blocked into pages, each being fixed implementation 
dependent number of lines in length. The choice of paged or - 
unpaged file organization for each sequential I/O channel is 
specified in an implementation dependent manner. 

HAL/S pictures the physical device as moving a read 
or write "device mechanism" , which actually performs the data 
transfer, across the file. The device mechanism has at 
every instant a definite column and line position on the " 
file. The action of transmitting one character to or from 
the file is followed by the positioning of the device 
mechanism to the next column on the same line. When the end 
of the line is reached the device mechanism moves on to the 
first (leftmost) column of the next line. 



10.1.1 The READ and READALL Statements 

The READ. statement is used for the sequential input 
of data in a standard external format. Each field of conti- 
guous characters separated by commas, semicolons or blanks 
is converted to an appropriate HAL/S data value assigned to 
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the <variable>. A semicolon field separator terminates the 
READ statement with any unassigned <variable>s left unchanged. 

The READALL statement is used for the sequential input 
of unconverted, arbitrary character string images to be _ , 
assigned to any character variable and/or structure contain- 
ing only character strings. 

<number> is any legal I/O channel number. <i/o control> 
is an optional control function used to position the device 
mechanism explicitly (see Section 10.1.3). 



SYNTAX : 



BEAD *nd READALL statements 



< basic \ 
statement I 




/"read") — pM^y^umbeA— fM~" 



READALL 



V 



re 



variable 



<D- 



i/o control 



K> 
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EXAMPLES : 



READ (CARDS) A,B,C ,D, JE] f {F} ; 

READ(CARDS) COLUMN (20) ,A,B, 
SKIP(l) , COLUMN (20) ,C,D, 
SKIP(l), COLUMN (20) ,E,F, 



etc. 
READALL(CARD) C, COLUMN (40) ,P; 
READ (CARDS) A, TAB(4 0),C; 



10.1.2 The WRITE Statement 

The sequential output of data in standard external 
format on the channel specified by <number> is accomplished 
by using the WRITE statement. Unless overridden by an 
<i/o control>, between the transmission of two consecutive 
elements, the device mechanism' is moved- to the right by a 
fixed implementation dependent number of columns. 

SYNTAX: 
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EXAMPLES: 



'■''■'. * ' 
WRITE (LISTING) A, B,C",D, [E] , {F}; 

WRITE (LISTING) A, TAB (10) , B, COLUMN (50) ,C; 

WRITE (6) ALPHA, SKIP (2), BETA; 



10.1.3 I/O Control Functions 

An I/O control function in a READ, READALL or WRITE 

statement causes the explicit movement of the device mechanism. If 

the value of K is specified by the signed integer" value of 
<arith exp> , then: 

• TAB(K) specifies relative movement of the device 
mechanism across the current line. Motion is to 
the right by K character positions for positive .<. 

• COLUMN (K) specifies absolute movement of the device 
mechanism to column K of the current line. 

• SKIP(K) specifies line movement of K lines relative 
to the current line of the file. Subject to imple- 
mentation restrictions, backward movement is mcica- 
ted by negative values of K. 

• LINE(K) specifies line movement to the specified 
line number: 

paged files - LINE (K) advances the file 
unconditionally, advancing to line K 
of the next page if K is less than the 
current line number. 

unpaged files - LINE (K) positions the device 
mechanism at some absolute line number in 
the file. 

• PAGE(K) is applicable to paged files only and speci- 
fies movement K pages forward relative to the current 
page. Subject to implementation restrictions,, 
backward movement is indicated by negative values 
of K. In either case, the line value relative to 
the beginning of the page is unchanged. 
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SYNTAX: 



i/o control function 



O/ocontroy t Q TAB ) —" 



COLUMN 



-Q SKIP J- 



y- 



> f LINE ) ' 



PAGE 



■Q> 



arith exp 



<J>- 



10.2 Random Access I/O - The FILE Statement 

Individual records, specified by the <file exp> 
"record address", on a file may be written, retrieved, 
or updated via the FILE statement. <number> is a legal 
random access channel number. <a"rith exp> is any unarrayed 

integer or scalar expression. 

INPUT: When <f ile exp> is on the right-hand side 

of the assignment, the statement is an input 
FILE statement where <variable> is any 
variable usable in an assignment context. 

OUTPUT: When <file exp> is on the left-hand side, 
the statement is an output FILE statement 
where there are no semantic restrictions 
on <expression>. 
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SYNTAX ; 



/ basic \ 
\. statement / 



FILE statements 






filo exp 



*{?y(toriy 



variable 






expression 



file exp 



<D- 



/file exp \ 



• ) (nLEj — Ct) TnumberJ — fT) — 



arith exp 



EXAMPLES : 

FILE(3,J+2) = ALPHA^ 1qqqS 

FILE(TAPE,I) = [A]; /* TAPE IS AN INTEGER LITERAL */ 
{B} = FILE(DISC / A I ); /* DISC IS AN INTEGER LITERAL */ 
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APPENDIX A. 
HAL/S Keywords 
(not including built-in functions) 



ACCESS 

AFTER 

ALIGNED 

AND 

ARRAY 

ASSIGN 

AT 

AUTOMATIC 

BIN 
BIT 

BOOLEAN 
BY 

CALL 

CANCEL 

CASE 

CAT 

CHAR 

CHARACTER 

CLOSE 

COLUMN 

COMPOOL 

CONSTANT 

DEC 

DECLARE 

DENSE 

DO 

DOUBLE 

ELSE 

END 

ERROR 

EVENT 

EVERY 



EXCLUSIVE 

EXIT 

EXTERNAL 

FALSE 
FILE 
FOR 
FUNCTION 

GO 

HEX 

IF 

IGNORE 

IN 

INDEPENDENT 

INITIAL 

INTEGER 

LATCHED 

LINE 

LOCKED 

MATRIX 

NOT 

OCT 
OFF 
ON 
OR 

PAGE 

PRIORITY 

PROCEDURE 



PROGRAM 

READ 

READALL 

REENTRANT 

REPEAT 

REPLACE 

RETURN 

SCALAR 

SCHEDULE 

SEND 

SIGNAL 

SINGLE 

SKIP 

STATIC 

STRUCTURE 

SUBBIT . 

SYSTEM 

TAB 

TASK 

TERMINATE 

THEN 

TO 

TRUE 

UNTIL 
UPDATE 

VECTOR 

WAIT 

WHILE 

WRITE 
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APPENDIX B. 
HAL/S Built-in Functions* 



A. String Functions (Bit or Character String Arguments) 

INDEX (string, config) 

r^L;; [applies to character-strings only] 

RJUST (character-string, length) 



B. Arithmetic Functions (Integer or scalar arguments) 

ABS 

CEILING 

FLOOR 

ROUND 

SIGNUM 

SIGN 

TRUNCATE 

MOD (numerator, denominator) 

DIV 

REMAINDER 

MAX 

MIN 

ODD 



C. Mathematical Functions (Integer or scalar arguments) 

ARCCOS 

ARCS IN 

ARCTAN 

COS 

SIN 

TAN 

EXP 

LOG 

SQRT 

ARCCOSH 

ARCSINH 

ARCTANH 

COSH 

SINH 

TANH 



* Note: This list is typical; the actual list in force is 
implementation-dependent. All functions require single 
arguments except where that or more arguments are shown 
in parentheses following the name.. 
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D. Matrix-Vector Functions 

ABVAL 

DET 

INVERSE 

TRACE 

TRANSPOSE 

UNIT 



E. Linear Array Functions 

SUM 

PROP 

MAX 

MIN 

SIZE 



F. Miscellaneous Functions 

RANDOM 

RANDOMG 

DATE 

RUNTIME 

CLOCKTIME 

PRIO 
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APPENDIX C. 
Summary of HAL/S Operations 



The following tables summarize the allowable operations 
between two operands. In most cases the valid result- type 
(or an error) and any implied data conversions are indicated 
within the boxes. 
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3 

m 



o 

CO 

z 
O 

o 

■n 

o 

> 



o 



o 
o 

o 
o 



> 
< 



o 
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2 
> 

CO 

CO 

> 

O 



1+] 



o 



CO 

CD 



o 



to 



Operation 


Prefix : 




{ Q } °P 2 


Q: NOT (-i) 






\s^2 


; INTEGER 


SCALAR 


VECTOR 


MATRIX 


BIT STRING 


CHARACTER 
STRING 




P 
INTEGER 


P 
SCALAR 


P 
VECTOR 


P 
MATRIX 


Q 

BIT 
STRING 




• 


• 








j 




. 






















* 


















- 














• 






Table'.C-l 



ni 

1) 



m 

— ( 

o 
w 

z 
o 
o 

~a 
O 
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O 

o 

O 
O 

z 
o 
o 

o 

> 
< 

m 

Z 

c 
m 



o 
> 

o 
o 

_m 
> 

CO 

CO 

> 

o 



GO 
,~5 



Operation Addition & Subtract 



0p l ± 0p 2 



u> 



"0p 1 ^^ 


INTEGER 


SCALAR " 


VECTOR 


MATRIX 


INTEGER 


• 

INTEGER 


SCALAR 
I+S 


ERROR 


ERROR 


SCALAR 


SCALAR 
I+S 


SCALAR 


ERROR 


ERROR 


VECTOR 


ERROR 


ERROR 


VECTOR . 
d 


ERROR 


\ MATRIX 


ERROR 


ERROR 


ERROR. 


MATRIX 

d • 



CO 



O 



I-+S = conversion of integer to scalar 
d = dimension check 



Table C-2 



3 
o 

CO 



c 

ID 



> 

m 



o 



O 
O 

o 

c 



> 
< 



> 



3 
O 



> 

CO 

o 
> 



CT 



co 



o 



to 

C3 



Operation Multiplication : 






o P] _ op 2 



N \. OPERAND 
OPERAND^. 


INTEGER 


SCALAR 


VECTOR 


MATRIX 


INTEGER 


INTEGER 


SCALAR 
I+S 


VECTOR 
I+S 


MATRIX 
I-S 


SCA&AR 


SCALAR 
I+S 


SCALAR , 


VECTOR 


MATRIX 


' VECTOR 


VECTOR 


VECTOR 


MATRIX (1) 
SCALAR (2) 
VECTOR (3) 


VECTOR 
d 


MATRIX- 


MATRIX 
I*S 


MATRIX 


VECTOR 
d 


MATRIX 
d 



Notes:- (1) Vector outer product V V 

} (2) Vector DOT product V.V(d) 

(3) Vector cross product V*V(d, restricted to 
3-elemerit vectors) 

Table C-3 



d: dimension check . 
I-*S: integer to scalar conversion 



o 
o 



."U 



m 

m 

—i 

o 

CO 

z 

o 
O- 

o 

> 

-1 
m 

O 

• 

o 
O 

o 

z 
o 
o 

~s 
o 

> 
< 

m 

z 
c 
m. 



> 

CD 

o 
o 

m 
> 

CO 
CO 

> 

O 

T 

c 

CO 

m 



Operation Division 



Op 1 /Op 2 








INTEGER 


SCALAR 


VECTOR 


MATRIX 


} INTEGER 


SCALAR ' 
I+S 


SCALAR 
I+S 


ERROR 


ERROR 


i SCALAR 

— . _ 


SCALAR 


SCALAR 


ERROR 


ERROR 




VECTOR 


VECTOR 
I+S 


VECTOR 


ERROR 


ERROR 




MATRIX 


MATRIX 
I+S 


MATRIX ' 


ERROR 


ERROR 



CO 

o 

CD 



I-*-S: integer to scalar conversion 



Table C-4 



g> 



en 



co 
o 



2 

— I 

n 

Z3 



o 

CO 



Operation Exponentiation 



Op.**Op 2 



g 
> 



o 
c 

o 

o 



> 
< 



> 

o 



> 

to 
O 



CO 



o 



CO 






\op 2 

op l ^\ 


INTEGER 


SCALAR 


VECTOR 


MATRIX 


INTEGER 

: 


SCALAR (1) - 

I-*S 


SCALAR (1) 
I-*S 


ERROR 


ERROR 


SCALAR 


SCALAR 
I+S 


SCALAR 


ERROR 


J 
ERROR 


VECTOR 


ERROR 


ERROR 


ERROR 


ERROR 


MATRIX 


MATRIX 


MATRIX 
S>I 


ERROR 


ERROR 



Note (1) Result is Integer if Op- is a whole number literal > 

(no I-S) 



Table C-5 



CT5 






C3 

o 



m 

m 
— ( 

o 

CO 

o 

O 

-o 

O 



n 
O 

o 
O 

o 
z 
o 
o 

o 

> 
< 

n 

c 
m 



> 

a 

3 



> 

GO 

CO 

> 

o 

c 

CO 

n 



CO 



o 



CO 
C3 



2 



o 

CD 



co 
o 



-J 



Operation Relational : 



*i{3 



Op, 



P: = ,-»= 



°*1 \, 


INTEGER 


SCALAR 


VECTOR 


MATRIX 


BIT STRING 


CHARACTER 
STRING 


. INTEGER 


Q 

i 


Q 
I+S 


ERROR 


ERROR 


ERROR 


ERROR 


SCALAR 


Q 

• 

X-i-S 


q ••; 


• ERROR 


ERROR 

> 


ERROR 


ERROR 


VECTOR 


ERROR 


ERROR 


P 


ERROR 


ERROR 


ERROR 


MATRIX 


ERROR 


ERROR 


ERROR • 


P 


ERROR 


ERROR 


BIT STRING 


ERROR 


ERROR 


ERROR 


ERROR 


P CD 


ERROR 


CHARACTER 

STRING 


] ERROR 

1 • 


ERROR 


■ ERROR 


ERROR 


ERROR 


p(2) 



Special: <structure>P<structure> Notes: (1) Operand padded on left to equalize lengths if 

necessary. 
(2) Operand padded on right to equalize lengths if 
Table C-6 necessary. 



— < 

m 



O 
CO 

z 

o 

o 



o 
> 



o 

o 



> 
< 



> 

SI 



i i 

> 



CO 



Operation String 



°Mq*° P 2 



P: 



Q: ||, AND, OR 



J Ns <J^ERAND 2 


INTEGER 


SCALAR 


BIT STRING 


CHARACTER 
STRING 


\- i • ii... - 
INTEGER 


P 

t+c 
i-k: 


P 
I-*C 

s-k: 


ERROR 


P 

CHARACTER 
I-C 


SCALAR 


p 

s-c 

-I-C 


p 

s-k: 
s-k: 


ERROR 


J P 

CHARACTER 


: BIT STRING 


ERROR 


ERROR 


Q 
BIT STRING 


ERROR 


: CHARACTER 

STRING 


P 
CHARACTER 
I+C 


P 

CHARACTER 

1 S "" C 


ERROR " 

1 


P 

CHARACTER 



CO 

o 



I*C: Conversion from integer to character 
S-*C: Conversion from scalar to character 









Tabic C-7 






APPENDIX D. 
Conversion Functions 



1. Summary of conversion function results when unsubscripted 
with single (unrepeated) argument; e.g. SCALAR fv) . 

A. INTEGER, SCALAR, BIT, CHARACTER 



-^arguments 


X 


I* a 


[X la,b 


V * ' 


[V] a:i 


* 

M 
m,n 


CM] 

a : m , n 


INTEGER; 


Y 


.'«». 


' Y 'a,b 


m t 


[Y] axA 


[Y] 

mxn 


[Y] 

axmxn 


SCALAR 


y 


w« 


t Y >a,b 


wh 


t Y] axS, 


^mxn 


axmxn 


BIT 


Y 


'«« 


^a.b 


Error 


Error 


Error 


Error 


CHARACTER , 


Y 


m a 


' Y Ia,b 


Error 


Error 


. Error 


Error 



X may be integer, scalar, bit or character type. 

Y indicates same data type as function. 

a,b indicate array shape (in general, may be a,b,c, etc.) . 

I indicates vector length. 

m,n indicate matrix row and column dimensions respectively. 

x (lower case x) indicates "by" as in * axmxn" = "a by m by n" 



U5\ 
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B. VECTOR, MATRIX 

(arguments may be of integer and scalar type only) 

An unsubscripted VECTOR always produces a 3-vector; 
therefore the number of elements in the argument 
must be exactly 3. 

An unsubscripted MATRIX always produces a 3-by-3 
matrix; therefore the number of elements in the 
argument must be exactly 9. 

2. Summary of Conversion Function Argument Types. 

The checkmarks in the following table indicate the legal 
argument types for each conversion function. 



conversion 
function 


argument type 


integer 


scalar 


vector 


matrix 


bit 


character 


INTEGER 


/ 


/ 


• / 


. / 


/ 


/ 


SCALAR 


/ 


/ 


/ 


/ 


V 


/ 


VECTOR 


/ 


/ 


/ 


/ 






MATRIX 


/ 


/ 


/ 


/ 






BIT 


/ 


/ 






/ 


/ 


BIT with 
<radix> 












/ 


CHARACTER 


/ 


/ 






/ 


/ 


CHARACTER 
with <radix> 










/ 




SUBBIT 


' 


V 






/ 


V 
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APPENDIX E. 
Sample Program Listing 



The following program was written in HAL/360, and 
is included only as an example of the main features of the 
HAL language. 
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HAL COMPILATION 



PHASE 1 



INTER. METRICS, INC 



VERSION 360-7 



PAGE 



SAL COTTIER PHASE 1 — VERSION 0? A3G0ST 20, 1972. CLOCK TIME =-18:58:37.08. 



TCDAT IS OCTOBER 1, 1972. CLOCK TIME - 12:31:44.-20. 

ST IT SOURCE 



CtJRPENT SCOPE 



1 r|.CONIC_STATE_EXTRAP: 

1 «!| PROGRAM; 

2 T.l DECLABE USIVERSAL_KEfLER PROCEDURE, 
2 !•! SECANT_ITER PBOCEDnRE, 

2 .11 EXTRAP_STATEj PROCEDURE: 

3 1| DECLABE PI C0NSTAST(3.1«1S9>; 

« r.\ declare a T J constant <123<o ; 

5 SJ DECLARE DELT, X, DELT.CPRIME, X_CPBIKE; 

6 r.J "DECLARE VECTOR, ' 

6 K| 30, VO, R, V; 

7 -J ' • DECLARE DELT..C, X_C; 
S S! UNIVE?SAL_KEPI.ER: 

fl r.l PROCEDnRE(C1, C2, X, XI, ROB AG) ASSIGN (DELT_C, S_OF_XI, C_OP*..XI) ; 

<? •? DECLARE CI, C2, X, XI, ROM AG; 

10 -I DECLARE S_OP_XI, £_OF_XI, DELT.C; 

11 "l . ONE = 1; 

12 "! CLOSE 0NIVE3SAL_KEPL?R: 



COKIC_STAT£_EXTRAP 

CONIC_STATE_EXTRAP 

CONIC_STATE^EXT?AP 

CONIC_STATE_£XTRAP 

COSTC_STA?E,EXTRAP 

CONIC_STATE_EXTR*P 

CONIC_STATE_EXTRAP 

CONIC_STATE_ EXTRA? 

CONIC_STATE_EXTRAP 

CONIC_STATE_EXTRiP 

CONIC_STATE_EZT3AP 

IJNIVERSAL_KEPLER 

ONIVE°SAL_KEPLEE 

ONIVERSALJCEPLER 

ONIVERSAL_K£PLER 

ONIVEPSALJCEPLER 

ONI7ERSAL_K2PLER 



BLOCK S H .". « A R. Y 



ir?LIC*TLT DECLARED VARIABLES: 
ONE 



c o j p i i J : : o s 



13 *: 
13 r 

la ". 
1 C " 
I s . * 
17 « 



PHASE 1 — X tf T F ? JT F T P. I C S , 
SCWPCS 
?FCm*'T ITEP; 

?rccrp*J?.s{r,EL , \_c, o?!.?_cp?ire, t_err, x) assign (xmin, y*AX, delx, s> : 

D7CLA5" T_EHK, DE!?_C r DELT.CPPIIF., X: 
CECLAP.S XKIS, X-AX, PELX, S; 
TWO = 2; 
CLOSE SECAV?_TTE3; 



INC 



VERSION ?fi0-7 PAGE 

CPPPENT SCOPE 
| SECAST_r7EH 
J SECAST_ITE8 
| SECAKT_ITER 
| SECAXT_ITER 
| SECAKT_ITER 
1 SECANT_ITE3 



I C v S '! 1 r. A ?. Y 



>i:cr~1Y "*FCIAFE3 VAP.IA3LF.S: 



u r. : c o r. ? T L * T I S ~ P H a S 2 1 -- . 1 n ? ? ? « 5 t s 1 c s , 

s*-r source 

1« -\ ST7?A?_5TATS: 

13 *| *POCED'JRE(P.O, 70, X,,XT # S_OF_XI, C_07_XI, DF.LT_C) ASSIGM{R, V); 

19 T| DECLA3E XI, S_0F_jI, C_OP_XI, X, DELT_C; 

20 1! DECLARE VFCTO*, 

20*1 R, V, JO, 70; 

21 r I TEPEE "= 3l" 

22 SI CLOSE EX??.A?_STATE; 



INC 



VEtSION 360-7 PAGE 

CURRENT SCOPE 
| EXTRAP_STATE 
I EXISAPiSTATE.. 
I EX?RAP_STAT£ 
I EXTRAP_STATE 
\ EXTRAP_STATE 
I EXTRAP_STAT£ 
I EXTRAP_STATE 



1 OCK S M « A R Y 



IMPLiri'LY DFCLARED 7ARIA3LES: 
THREE 



HAL 
ST.IT 

23 -. 
23 r 
2c *. 
25 <• 

25 1 

26 T 



30 «• 

31 •« 

32 - 

3 3 - 

It « 
3^ r. 
36 - 

36 • 

it ■* 

3T r. 

3? " 

3 3 r 
ii? " 

I. - * • 
•4% -, 

*2 v 



rO"PIIATIOK 



KT°Lr? rcv'ti'T 



P H A S F. 1 — I » 7 ?. 3 M B T ? I C S , ISC, 

soi??cr 



IX .;?0, 70) AlSSIGKfR, V, v_C, DELT, X,- DELT_CPRISE, X_CP3I?!E, DELT.C); 

DECLARE DELT, DEl7_CPRtK2, X_CPRIirE, X; 
DECLARE VECTOR, | 

?0, VO, P, V, I_R; 
CECLARS DFLT.-.AX CONSTANT (3U5) ; 
DECL^S EPS_T COiSSTANT(22) ; 
DEC T .A!t5 EPS_X CONSTANT f 33) ; 
DECLARE I_fAX CO k ISTANT(12) ; 
DECLARE BIT f LOCKING: 

ROSAG = ASVAI. f?0) ; 

ft, 

i_p = ?nit{3 0) : ! 

C1 = RO . VO / SpRT(KU) : 

- > 

C2 = ROMAG VO . -fO / »T - 1; 

ALPHA = (1 - C2) } / FOX AC; 

IT ALPHA < THEf.' 

XSAX = SORT (-50 /ALPHA); 

ELS* 

DO; 

\' V AX - 2 Pt / SP??(ALPHY) ; 

P = 2 PI /ALPHA SOPT (ALPHA Ml)) : 

TF P < OEltlAX THEN 

ro wtini: A!»s(i>vjt) >- p; 

PELT)-- 1H - LT - SIi;S-|PKT.T) .P; 
FKO; 
ESD; 



VERSION 360-7 PAGE 

CORF EST SCOPE 

| KEPLER_R00TIS£ 

| KEPLER_POt!TISE 

| KEPLER_ROUTISE 

| EEPIER_ROOTINE 

1 KEPLER_ROTJTINE 

I KEPLER_RQUTINE 

I KEPLER_ROUTINE 

| KEPLER_ROUTIKE 

I KEPLER_RO0TIKE 

| KE?LER_ROCTISE 

I 

t KEPLER_BO0TINS 

1 ! . 

J KSPLEF_FODTINE 

1 

I KEPLER_R00TlSE 

! 

[ KEPLER_ROCTINE 

I KEPLER.ROCTINE 

| KEFLER_RO0TINE 

| KE?LER_R0UTIHE 

| KEPLE3_F0I'TINE 

1 KEPLERJPOUTINE 

1 KEPLER_RfiOTINE 

I KEFLER_P00TINE 
t* KEPLER_RO0TINE 

I KHMER, (-OnilNE 

I KEf'I.EP_PO0TItiE 

I KEPLER_800TINS 

t KEPLER_POOTISE 



S"H7 

ai -l 
un ~.\ 
US "I 

ttf "J 

U7 «•( 
lift *| 

u9 -.| J 

50 -t 

51 -J 

52 "J 

53 -I 

"I 
5a ».) 

55 "I . 



5* 




57 


v ! 


5 a 


*t 


59 


-.1 


59 


-1 


(-0 


v l 


61 


ri 


61 


n 


62 


-I 


63 


"\ 


6U 


r\ 



f! P I .1 k T I <N — ■ PHASE 1 -- INTERMST3ICS, INC 

SOURCE ' 

I? X STGSfDSIT) : jO CP (AES(X) - XHAX) >= THEN 
DO: 

x ■ sign {!>sl") xk1x / 2; 
nelt_cprihje, x_cprike * 0: 
end: 
if delt >* thsh 

XBIN =0; 

ELSE 
DO; 

xr.iK '.« -x*ax; 

XMAX /'■ 0; 
END; 
DELX = X - X_CPRlriS: 

LOOP! ST = OS: 

DO FOR I ■ TO (T_MAX - 1) 'WHILE LOOPING; 

2 
XT = ALPHA X j; 

CALL tJNIVE?S*L_K?.PLE?(Cl, C2, X, XI, R05AG) ASSIGN (DBLT_C, S_OP_XI, C^CP_XI) ; 

, TER3 = DHL* -j DEf^C; 

IT ABS(T5pr>) >= ADSfEPS.T DEI.T) THEN 

: ; DG: 

CALL S!fCAN'T_I?ER(DEt?_C, DSLT..CPSI1F, TJ>R?, X) »SSTGN (X1IN, XMAX, DELX, S) ; 
IF ABSpELX) >= EPS_X THEN 
DO ; I 

!JEtT_CP?T«lE = DELT_C; 
X ~ X ♦ DELX; 

ENDS ' ' 



TEFSIOK 160-7 PASS 
CURRENT SCOPE 

KEPLES.POUTIKE ' 

KEPLER_FOUTISE 

K£PLER_ROUTINE 

KEPLER_PQUTINE 

KEPLER_ROt7TLNE 

KEPLES_POCTlNE 

KEP1E3_B0UTISE 

KEPLER_POUIINS 

KEPLEa.PO'JTISE 

K2PLES_R0UII8E 

KEPtES^PODTISE 

KEPLER..POUTINE 

KE?LE3_ROUTIKZ 

KEPI.ES_?OTJTINE 

KEPLER FOUTISE 



KEPLER. 
KEPLES. 
KEPLES. 
KEPLES. 
KEPLEB. 
KEPLER. 
KEPLES. 
KEPLES. 
KEPLER. 
KEPLES. 
KEPLES 



BOUTINS 
ROUTINE 
ROUTINE 
ROUTINE 
ROUTINE 
.ROUTINE 
ROUTINE 
.ROUTINE 
ROUTINE 
.ROUTINE 
ROUTINE 



ST* 



SS "| 





ri 


6^ 


"i 


Si 


"! 


67 


ri 




?i 


67 


XI 


«,a 


v t 




ri 


69 


v ! 


70 


". 1 


71 


"1 


12 


ri 



p ". p r l n t r o : k- 



•tse 



P H A S F 1 — I » T S H r E - 3 I.C S , IHC 

son pc e 



LOOKING = OF?; 



ESD; 

ELSE 



LC0PI3G = OFF- 



END; 



CALL EXT3AP.ST;4e(P0, VO, X, XI, S_0?_XI/ C_OF_XI, OFLT.C) ASSIGN(P, V) 

x_c * x; - 
?et't?s: 
r:osE KEPLER pouti:j!e: 



slock s 'J ; n ■ p y 

P'OCErV-SS CAII.E5: 

'.•'.i"Ers.;L_KErLSR. seca'st.iItep, fxtsap_s?ate 

~-.-r ? V.prA^LES EEFESEVCED: 



VEBSIOK 360-7 

CUPPEST SCOPS 
I KEPLE?_S00TIKE 

I 

I JCE?LER_RO0TINE 

I KFPL£R_ROCTIKE 
J KEPLE5_ROCTIti£ 

J 

I KEPLES_ROnTIKE 

I KEPLER_POUTINE 

I 

I KE?LE?_POOTIKE 

I K£PL£R_ROtJTINE 
I KSPIEP_PO«TINE 
) KEPLER POatlME 



?A iF 



tr -r ~L v ■TZT.s.rro' yaptasle-s:-- 

*_c --:r.c. »mag, dj'ci:} alpha, xku, ?. xms, delx, i, xi, s.ofjct, c.of.xi, tct*, ?_epr, s 



An introduction to- IIAL/S April 9-12, 1973 

Carl T. Hclmcrs 
IHTERMETRICS, INC. 

The Workshop Philosophy 



Each afternoon, I will preside over a HAL/S "workshop" 
session which will be of interest to those technically- 
oriented individuals attending the course. The primary _ 
purpose of these sessions is to supplement the lectures in 
several areas: 

1. In the first portion of each afternoon, I will 
field written and/or oral questions upon the 
lecture material or any related HAL/S topic. 

2. On Monday, I will present a HAL/S application problem 
to be designed and coded by each student. The 
particular application coded can be either the one 

I suggest, or a program with which the individual 
student is familiar. The major portion of each 
workshop will be devoted to independent work by 
each student on his problem. 

3. For those who are interested, I will be available 
for informal discussions of HAL/S, the compiler 
system, run-time characteristics, and related 
topics during the workshop periods. 

Due to the time schedule of this course, the workshops 
on Monday and Tuesday are pre-mature in relation to the lecture 
presentation material. To remedy this, and also to serve as 
a guide to the lectures, I am handing out a document entitled, 
"HAL/S Language Forms" which outlines the course material and 
contains sufficient syntactic and semantic information for each 
student to begin designing his application programs. 

In order to make the workshop portions interesting and 
informative, for all concerned, I would like each student to 
prepare the following: 

1. During each lecture, a list of questions, so that 
all ground will be covered thoroughly during the 
question period. These may be given to me ju'st 
prior to the lunch break, or held until the after- 
noon session. 

2. During Monday's lecture, think about a HAL/S application 
with v;hich he is familiar - to code as a HAL program 
during the Monday and Tuesday workshops. 
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